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puter Kurs für Sie zu reservieren. 


Zurückliegende Hefte 
Ihr Zeitschriftenhändler besorgt Ihnen gerne zurückliegende Hefte. Sie kön- 
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aus an: Computer Kurs, Wollzeile 11, 1011 Wien, Postscheckkonto Wien 
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Datenbus 


Nachdem im vorigen Heft erklärt wurde, wie der Befehlszyklus 
innerhalb der CPU durch die Steuerlogik abgewickelt wird, geht es 
jetzt um die Speicherbausteine, und zwar vor allem um die Schreib- 


und Lesevorgänge. 


D:: Unterschied zwischen einem RAM und 
einem ROM kennt fast jeder, der über- 
haupt mal etwas von Hardware gehört hat. 
Während ein RAM nicht nur ausgelesen, son- 
dern auch beschrieben werden kann, ist der 
ROM-Inhalt durch den Herstellungsprozeß fi- 
xiert. Da bei den RAMs zwischen „statischen“ 
und „dynamischen“ zu unterscheiden ist, vor- 
weg .noch eine kurze Bemerkung dazu: Bei den 
statischen RAMs sind die eigentlichen Spei- 
cherzellen J-K-Flipflops, die jeweils für ein Bit 
zuständig sind. Ein Flipflop hält einen definier- 
ten Ausgangswert (1 oder 0) fest, bis er durch 
einen neuen Eingangsimpuls „umgekippt“ 
wird. Für jedes Speicherbyte sind acht derar- 
tige Flipflops vonnöten — ein statischer RAM- 
Baustein enthält also viele Tausende davon. 
Bei einem dynamischen RAM dagegen sind 
die Datenbits in Form elektrischer Ladungen 
gespeichert. Das erfordert zwar viel weniger 
Platz, so daß der einzelne Chip eine größere 
Kapazität aufweist, aber dafür muß ein dynami- 


sches RAM periodisch „aufgefrischt“ werden, 
weil die Ladung infolge von Leckströmen sehr 
schnell abfließt. 

Die nächste Seite zeigt die Pinbelegung des 
Prozessorbausteins 6510, der vom 6502 ab- 
stammt, und daneben ein typisches 8-KByte- 
ROM. Der Prozessor hat vier Gruppen von An- 
schlüssen, nämlich einen 16-Bit-Adreßbus (A0- 
A15), einen 8-Bit-Datenbus (DO-D7) und eine 
Anzahl von Steuerleitungen. Als Besonderheit 
kommt beim 6510 noch ein 6-Bit-Port hinzu, 
über den unter andefem zusätzliche RAM- 
oder ROM-Bänke in den 64K-Adreßraum ge- 
schaltet werden können. 

Das daneben abgebildete 8K-ROM hat 13 
Adreßleitungen (AO-Al2) für das Anwählen 
der 8192 Bytes, acht Datenleitungen und einen 
Chip-Select-Anschluß. Statische RAMs weisen 
eine analoge Pinbelegung auf, haben aber zu- 
sätzlich noch einen „Write Enable“-Pin. Der 
Schlüssel zur Adressierung solcher RAMs und 
ROMs ist die Chip-Select-Leitung. 


zus. nur 
Schreiben und Lesen 


Bus- 
Verkehr 


Das Blockdiagramm 
zeigt eine typische 
Speicherstruktur für 
einen 8-Bit-Prozessor 
mit 16 KROM und 48 K 
RAM (statisch). Der 
Schreib/Lese-Ausgang 
R/W des Prozessors ist 
mit den Schreibfreigabe 
(WE)-Anschlüssen 
sämtlicher RAM-Chips 
verbunden. Wenn die 
WE-Leitung durch die 
CPU auf Null gesetzt 
wird, erfolgt die Daten- 
übernahme in das 
RAM-Byte, das gerade 
adressiert ist. Zur Aus- 
wahl eines bestimmten 
RAM- oder ROM-Bau- 
steins werden die drei 
höchsten Adreßbits 
durch einen Decoder 
auf eine von acht Chip- 
Select-Leitungen umge- 
setzt. 
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Das hier gezeigte 24- 
polige 8K-ROM weist 
eine typische Pinbele- 
gung auf: 13 Eingänge 
werden zu ÄAdressie- 
rung der 8192 Byte be- 
nötigt, acht Pins bean- 
sprucht der Datenbus, 
zwei die Spannungsver- 
sorgung (Power und 
Ground=GND), und der 
Chip-Select-Anschluß 
dient zur Anwahl die- 
ses speziellen ROMs. 


ROM-Baustein 


Microprozessor 6510 
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Wie der abgebildete 
6510 haben die meisten 
8-Bit-Prozessoren 40 
„Beinchen“, nämlich 16 
für den Adreßbus, acht 
für den Datenbus, den 
Rest für Takt- und Steu- 
ersignale (einschließ- 
lich Interrupt-Eingänge 
und Schreibfreigabe) 
sowie zur Spannungs- 
versorgung. Der 6510 
ist eine verbesserte 
6502-Version. Der Fort- 
schritt besteht wesent- 
lich in einem zusätz- 
lichen Datenregister für 
die Cassetten-Ein/ 
Ausgabe. 
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Höchstwertige 
Adreßbits 


Ein 8-Bit-Prozessor kann über den 16-Bit- 
Adreßbus bis zu 64 KByte direkt ansprechen 
(2'=65536—64 K). Es sind also acht separate 
RAM- oder ROM-Chips mit je acht KByte 
adressierbar. Dabei werden die Adreßleitun- 
gen A0-Al2 für die Ansteuerung des einzelnen 
Bytes innerhalb eines Bausteins beansprucht, 
während die Leitungen Al3-Al5 für die Chip- 
Auswahl zur Verfügung stehen. Als Beispiel ist 
ein typisches Speicherkonzept mit zwei 8K- 
ROMs und sechs 8K-RAMs abgebildet. Die 
drei obersten Bits des Adreßbus werden für 
die Chip-Auswahl auf einen 3-Bit-Decoder mit 
acht Ausgängen gegeben, während die unte- 
ren 13 Adreßbits bei allen Chips gleichzeitig 


3-Bit-Decoder 


Ein Decoder ist eine Digitalschaltung zur Ent- 
schlüsselung von Binärzahlen. Jedem Bitmuster 
am Eingang ist genau eine Ausgangsleitung zuge- 
ordnet, der gezeigte 3-Bit-Decoder muß acht Aus- 
gänge haben. Ausgang 0 wird durch den Ein- 
gangswert ABC=000 aktiviert, Ausgang 1 durch 
001 usw. bis zum Ausgang 7 für ABC=111l. 


anstehen. In Aktion tritt aber immer nur der 
durch das Chip-Select-Signal jeweils ange- 
wählte Baustein. 

Bei den RAMs wird über die ROM-An- 
schlüsse hinaus noch ein „Read/Write"-Signal 
zur Unterscheidung von Lese- und Schreibvor- 
gang benötigt. Deshalb hat jedes RAM noch 
einen Write-Enable-Pin, der über Low-Pegel 
aktiviert wird und deshalb die Bezeichnung 
WE trägt; er ist mit dem Read/Write-Kontakt 
R/W der CPU zu verbinden. Beim 6510 liegt 
die R/W-Leitung normalerweise auf High und 
wird nur zum Schreiben auf Low herunterge- 
setzt. 


Gewußt, wo 


Wenn der Prozessor etwa den Lesebefehl aus- 
führen soll „Akkumulator mit dem Inhalt von 
Speicherplatz $C000 laden“, legt er zunächst 
die hexadezimale Adresse SCO000 auf den 
Adreßbus, während die R/W-Leitung auf High 
bleibt. Die drei höchsten Adreßbits haben in 
diesem Fall den Wert 110, das heißt, RAM 6 in 
unserem Blockdiagramm wird durch den 3-Bit- 
Decoder angewählt. Die übrigen 13 Adreßbits 
sind alle Null, so daß das unterste Speicher- 
byte von RAM 6 angesprochen ist. Die Informa- 
tion gelangt über den Datenbus in CPU und 
Akkumulator. 

Für eine Write-Anweisung, etwa „Akku- 
Inhalt unter $C000 abspeichern‘, erfolgt genau 
der gleiche Adressiervorgang, aber außerdem 
wird die R/W-Leitung und damit der Schreib- 
freigabe-Anschluß WE heruntergezogen. Der 
Akku-Inhalt steht bereits auf dem Datenbus an 
und wird mit dem Freigabesignal in das erste 
Byte von RAM 6 kopiert. 


Klänge vom Chip 


Im ersten Kursabschnitt haben wir die technischen Eigenschaften 
einer MIDI-Schnittstelle beschrieben. Nach diesen Vorschriften soll 
jetzt eine MIDI-Schaltung zum Anschluß am Commodore 64 oder 


Acorn B entstehen. 


D: Hauptkomponente des Interface ist der 
sogenannte ACIA (Asynchronous Com- 
munications Interface Adaptor). Der ACIA 
wandelt Parallel-Daten in die von MIDI ver- 
langte serielle Form und umgekehrt. Üb- 
licherweise ist die gesamte Schaltung in 
einem IC integriert. Wir verwenden dazu den 
Chip MC68B50, der in vielen Heimcomputern 
die serielle RS232-Schnittstelle und den Daten- 
verkehr mit einem Cassettenrekorder steuert. 

Neben dem ACIA benötigen wir einen Inter- 
face-Taktgeber, einen Optokoppler sowie ge- 
eignete Ein- und Ausgangsbuchsen. Die Be- 
sonderheiten für die Port-Anschlüsse des 
Commodore 64 bzw. Acorn B geben wir im 
nächsten Abschnitt an. 
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Die innere Struktur des Gerätes bilden 
mehrere Acht-Bit Datenregister. Die Register- 
SELect Leitung (RSEL) verbindet jeweils ein 
bestimmtes Register mit dem Computer-Da- 
tenbus. Für den Aufbau der MIDI-Schaltung 
brauchen Sie die Funktion des ACIA zwar nicht 
genau zu kennen, einige Basisinformationen 
helfen jedoch bei der Programmierung: 
© Das Status-Register besteht aus acht Bits, 
die den aktuellen Zustand des ACIA-Chips an- 
geben. Sie können durch eine READ-Anwei- 
sung ausgelesen werden, wenn die RSEL-Lei- 
tung auf Low (logisch Null) liegt. 
© Das Kontrollregister enthält acht Bit für die 
Steuerung der ACIA. In das Kontrollregister 
wird mit RSEL-Leitung auf Low geschrieben. 


Der Optokoppler 6N139 
sorgt für die elektri- 
sche Isolation der Ein- 
gangsleitung. Der aus 
dem 2MHz-Quarz mit 
IC3a und IC3b aufge- 
baute Taktgeber er- 
zeugt seine Impulse un- 
abhängig von den Takt- 
zyklen des Computers. 

IC3c, d und e über- 
nehmen Bufferfunktio- 
nen für die Übertra- 
gung und bei der Er- 
zeugung der Taktfre- 
quenz. 

Die beiden „Chip Se- 
lect“ Leitungen CSO 
und CS1 sind mit der 
Versorgungsspannung 
verbunden und liegen 
damit ständig auf High, 
so daß CS2 der einzige 
aktive Chip- (bzw. De- 
vice Enable-) Eingang 
ist. Für bestimmte 
Adressen wird diese 
Leitung Low, so daß 
über den Datenbus Ein- 
und Ausgabeoperatio- 
nen mit den internen 
Registern der ACIA 
vorgenommen werden 
können. 


Schaltplan der MIDI-Schniittstelle 


SKl 
MIDI Ausgang 
(von vorn 
gesehen) 


C2 100 nF 
| IC3e 


741504 


X1 2 MHz-Quarz 


220 Ohm 


Eingang 
(von vorn 
gesehen) 
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Die Bauteile der MIDI- 
Schnittstelle sollten auf Platinenbestückung 
einer solchen Einschub- 

platine aufgebaut wer- 
den. An beiden Plati- 
nenkanten liegen dop- 
pelseitige Kontaktstrei- 
fen. Die rechte Kontakt- 
seite paßt in den Com- i Seren 
modore 64, die linke 21 Oi 
dient zum Anschluß am 
Acorn B. Vor der Be- 


5-polige DIN-Buchsen MIDI IN MIDI OUT 


........ 


stückung müssen Aus- nn 
schnitte an den Seiten ; Quarz, 2MHz 
gemacht werden. Na- Styroflex- 
türlich brauchen Sie die Kondensator, = 
Ausschnitte nur auf der InE Widerstände 
- m 

Ihrem Rechner entspre Diode IN914 
chenden Seite zu ma- 
chen. Dafür können Sie Be 
entweder ein scharfes & ACIA-IC 

A koppler-IC 
Messer oder eine 6N139 MC68B50 
kleine Metallsäge be- 
nutzen. Alle Verbin- Hex- 
dungsleitungen werden Widerstand ‚ Go) Invertierer 


auf der Platinenober- 270 Ohm 741504 TTL 
seite mit einadriger k 
Wire-wrap-Litze ver- 
drahtet, bis auf die Ver- 
bindung der drei ne- 
beneinanderliegenden 
Paare von IC-Beinchen. 
Sie werden einfach auf 
der Unterseite zusam- 
mengelötet. 

Zuerst die passiven 
Bauteile - Widerstände, 


Kondenstoren, DIN- kansilels Styroflex- } 

Buchsen und IC-Sockel kondensatoren Ban 

einlöten. Danach kom- ur Platinenaus- 
schnitte 


men die Verbindungs- 


leitungen und der für Commodore 64 


Schwingquarz. Achten Platinenaus- 
Sie beim Einsetzen der schnitte 
für Acom B 


Diode darauf, daß der 
farbige Markierungs- 
ring von oben gesehen 
rechts liegt. Die kurze 
Verbindung neben dem 
Kondensator C3 nicht 
vergessen! Zum Schluß 
werden die ICs in die 
entsprechenden Sockel 
gesteckt, wobei Sie auf 
die Position der Mar- 
kierungen achten müs- 
sen. 


Beinchen auf 


® . _ 
der Platinen- r con =] 
unterseite E22 e 23 N Aö eleiole 
i . > 
verbinden u , 
= eYeTa'n! 


GREEN , , . 
ACIA-IC EEE 


Semager abe Let een ee 


Leiterbahnseite 
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® Das TSR (Transmit Shift Register = Sen- 
deumsetzer) nimmt die zur Übertragung nötige 
Umwandlung eines Datenbytes in die serielle 
Form vor. In das Register wird ein Byte aus 
dem TDR (Transmit Data Register = Daten- 
übertragungsregister) immer dann eingele- 
sen, wenn das TDR voll und die Übertragung 
des vorhergehenden Bytes abgeschlossen ist. 
Dabei werden die acht Datenbits auch durch 
Start- und Stopbits ergänzt. Das TSR ist ein in- 
ternes Register und kann nicht direkt über den 
Datenbus angesprochen werden. 
® Das TDR bildet einen Buffer zwischen Sy- 
stembus und TSR. Das zu übertragende Byte 
wird von dem ACIA mit auf High liegender SE- 
Lect-Leitung in das TDR geschrieben. Dabei 
wird Bit 1 des Statusregisters gelöscht. Mit ge- 
löschtem Statusbit sollte das TDR nie geladen 
werden, weil sonst Daten verlorengehen. 
© Das RSR (Receive Shift Register = Emp- 
fangsumsetzer) wandelt serielle Daten in Pa- 
rallelform um. Ein vollständig empfangenes 
Byte wird ins RDR geladen, wobei das Statusbit 
0 gesetzt wird. Falls dieses Bit schon vorher 
gesetzt war, wird zusätzlich das Statusbit 5 ge- 
setzt, um anzuzeigen, daß das vorige Byte noch 
nicht von der CPU verarbeitet ist und über- 
schrieben wurde. 

Fehlen Start- oder Stopbits, wird Statusbit 4 
gesetzt. Das RSR kann wie das TSR nicht direkt 
angesprochen werden. 


© Das RDR (Receive Data Register = Emp- 


Tx CLOCK 


Rx CLOCK 


fangsdatenregister) wird nach jedem Empfang 
eines vollständigen Byte durch das RSR gela- 
den. Es enthält also das jeweils letzte Daten- 
byte. Bei auf High liegender RSEL-Leitung 
kann dieses Byte ausgelesen werden. 


Liste der Bauteile 


Die Bauteile erhalten Sie im gut sortierten Elektro- 
nik-Fachgeschäft. Eventuell Vergleichstypen ver- 
wenden oder den Fachhändler bitten, bei Mütron, 
Bormstraße 22, 2800 Bremen |, zu bestellen. 


Anzahl Bez. im Plan Bauteil 

l C4 Kondensator (Styroflex, 

InF) 

Kondensator (Styroflex, 
O0nF) 

Rl Widerstand, 270 Ohm 

R2/R3/R4 Widerstand, 220 Ohm 

RS/R6 Widerstand, 680 Ohm 

Rolle Wire-wrap-Litze 

5polige DIN-Buchsen (180°) 

MC68B50 ACIA-Chip 

6N130 Optokoppler 

741504 TTL Sechsfach-In- 

vertierer 

24poliger IC-Sockel 

8poliger IC-Sockel 
l4poliger IC-Sockel 

xl Schwingquarz, 2,0 MHz 

Dl Diode, 1N914 

Zur Montage verwenden Sie eine Einschubplatine. 

Sicherheitshalber beim Einkauf die Abbildung der 

Platine mitnehmen! 
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Blockdiagramm 
des ACIA-ICs 


TRANSMIT 
DATA 


RECEIVE 
DATA 


BASIC-Dialekte 
Einige Besonderheiten 
sind bereits im letzten 
Heft erwähnt worden. 
Zusätzlich sollten jetzt 
noch folgende Punkte 
ergänzt werden: 


Spectrum: 

4350 v=INT(RND*a): 
RETURN 

4540 RESTORE 9920: FOR 
e=1 TO t(t,n,4): READ h: 
NEXT e: GOSUB h 

4570 RESTORE 9930: FOR 
e=1 TO tt(t,n,3): READ h: 
NEXT e: GOSUBh: 
RETURN 

5470 RESTORE 9910: FOR 
e=1 TO (t(t,n,1)+1): 
READ h: NEXT e: GOTO h 

9910 DATA 5480,5490, 
5500,5520,5530,5540, 
5550 

9920 DATA 3930,3940,3995 

9930 DATA 3030,3060, 
3070,3080,3100,3120, 
3140,3150,3160,3170, 
3180,3190,3200,3210, 
3220,3230,3240,3250, 
3270 

Acorn B: 

4350 v=RND(a): RETURN 

Commodore 64: 

Löschen Sie alle Zeilen 

ab Nummer 7000 auf- 

wärts und ändern Sie 

das Programm: 


190 DIM t(5,40,4), k(3,30), 
c(35), s(6), 

h(6),i$(23) 

310 FOR n=1 TO 23: READ 
i$(n): NEXT n 

4680 m$=i$(t(t,n,4)): 
RETURN 
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BUNCH-BREWERS 


Wir zeigen Ihnen das vollständige 
Listing unseres interaktiven 
Programms für den Schneider 
CPC. Außerdem finden Sie 
Änderungshinweise für den Acorn 
B, Sinclair Spectrum und 
Commodore 64. 


as komplette Listing ist in drei Farben ge- 

druckt — schwarz gehaltene Zeilen wur- 
den bereits veröffentlicht, grüne Zeilen wur- 
den neu hinzugefügt. 

In einigen Fällen, in denen bereits veröffent- 
lichte Zeilen geändert wurden, um für die 
neuen Teile Platz zu schaffen, wurden die Zei- 
len rot gedruckt. 

Nach Programmstart können Sie jederzeit 
mit der Taste Null den Figuren-Editor aktivie- 
ren. Drücken Sie dagegen |, 2 oder 3, wird der 
Spieler entsprechend in das Wohnzimmer, den 
Salon oder die Küche versetzt. 


„DOG AND BUCKET“- 
Listing 


20 REM 


40 REM 

45 60SUB 4030: REM clear the screen 

50 DIM 1$(3,5) ,b$(12,4) ,c$(7,11) ,d$(11) 
60 r=1 

?0 PRINT "Default values (y/n)?": GOSUB 


4110: IF i$="y" OR i$="Y" G0T0 90 

80 60SUB 2350: 60TO 100 

90 FOR n=1 TO 7: READ c${n,1): FOR d=2 
TO 11: READ c${n,d): NEXT d: NEXT n 

100 FOR n=1 TO 3: READ 1$(n,1): FOR e=2 
TO 5: READ I$(n,e): NEXT e: NEXT n 

110 FOR n=1 TO 12: READ b$(n,1): FÜR de2 
TO 4: READ b$(n,d): NEXT d: NEXT n 

120 FOR n=2 TO 11: READ d${n): NEXT n 
130 DEF FNb(y,zI)=VALCb$Xy,z)) 

140 DEF FNc(y,z)=VALic$(y,z)) 

150 DEF Fin$4c$ ,‚d)=STR$C(VALCCH))-d) 

160 DEF FNi$=b$(VWAL(c$(c,3)),1) 

180 REM setup trees 

190 DIM t(5,40,4) ,kK(3,30) ,c(35) ,s(6) ‚h(& 
): z=0 

200 REM object tree 

210 FOR n=1 TO 21: REM 21 choice nodes 
220 READ K(1,n),t(1,n,2) ,tX1,n,1d: NEXT 
n 

230 REM plot tree 

240 FOR n=1 TO 22: FOR s=i TO 4: READ ti 
2,n,5): NEXT s: READ a$: NEXT n 

250 REM character interaction tree 

260 FOR n=i TO 22: FOR s=1 TO 4: READ t( 
3,n,5): NEXT s: READ a$: NEXT n 

270 REM general activity tree 

280 FOR n=1 TO 39: FOR s=1 TO 4: READ t( 
A,n,s): NEXT s: READ a$: NEXT n 

290 REM object awareness tree 

300 FOR n=i TO 13: FOR s=1 TO 4: READ tt 
5,n,5): NEXT s: READ a$: NEXT n 

500 REM 

310 REM test program loop 

520 REM 

530 605UB 2100: GOSUB 2150: GOSUB 2240: 
PRINT: PRINT: GOSUB 1000: G0TO 530 

1000 REM 

1010 REM character handler 

1020 REM 

1030 REM check to see if Key pressed 
1040 G0SUB 4260: IF i$X)"" THEN GOSUB 20 
40: RETURN 

1050 REM process each character in t 
urn 

1060 FOR c=1 TO 6: IF c$(c,9)="7" THEN c 
$c,N="0" 

1070 IF z=c THEN 6010 1500 

1080 IF FNc(c,10))0 THEN c$(c,10)=Ain$cc 


%(c,10),1): 60T0 1500 

1090 REM flag=0 so reset flag and pr 
ocess character 

1100 RESTORE: FOR n=1 TO c#10+c-1: READ 
c$(c,10): NEXT n 

1110 IF FNc(c,10)=0 THEN 6070 1500: REM 
default value=0 so don’t process 

1120 REM check move flag 

1130 IF FNc(c,11)30 THEN c$Cc,11)=FNn$lc 
$(c,11),1): 6010 1190 


1140 REM nove flag=0 so reset flag a 
nd nove character 

1150 RESTORE: FÜR n=1 TO c#11: READ c$(c 
‚ID: NEXT n 

1160 IF c$(c,11)="0" THEN 60T0 1180 

1170 GOSUB 2840: GOTO 1500 

1180 REM sort through the trees 
1190 GOSUB 2400: REM initialise conditio 
ns 

1200 FOR t=2 TO 5: 60SUB 2430: GOSUB 546 
0: NEXT t 

1210 IF FNc(c,4)>0 THEN 60SUB 5000: REM 
object manipulation tree 

1500 NEXT c: 6070 1030: REM do next char 
acter - when all finished check for Key 
press/do again 


2000 REM 

2010 REM input routine 

2020 REM 

2030 G0SUB 4110 

2040 IF (ASCKi$)X48) OR (ASCCI$))51) THE 
N RETURN 

2050 IF i$="0" THEN G0SUB 2320: RETURN 
2060 r=MAL(i$): c$(7,2)=i$: RETURN 

2070 REM 

2080 REM location print 

2090 REM 

2100 PRINT 1$(r 1) 

2110 RETURN 

2120 REM 

2130 REM print visible objects 

2140 REM 

2150 PRINT "You can see: "; 

2160 p=0: FOR b-i TO 12: IF VALtb$(b,2)) 
Or 6010 2190 

2170 p=pti: IF pi THEN PRINT ", "; 
2180 PRINT b$(b,1); 

2190 NEXT b 

2200 IF p=0 THEN PRINT "nothing"; 

2210 PRINT: RETURN 

2220 REM 

2230 REM print visible characters 

2240 REM 

2250 p=0: FOR c=1 TO 6: IF VAL(c$(c,2))X 
Ir 60T0 2290 

2260 p=pti: IF p=1 THEN PRINT "You are i 
n the company of: ";: GOTO 2280 

2270 PRINT ", "; 

2280 PRINT c$(c,1); 

2290 NEXT c 

2300 IF p=0 THEN PRINT "There’s no-one h 
ere." 

2310 RETURN 

2320 REM 

2330 REM initialise chars subroutine 
2340 REM 

2350 PRINT: h=c: RESTORE: FOR c=1 T0 ?: 
READ c$(c,1): GOSUB 4070: PRINT c$(c,1); 
"- "3 PRINT "Set this char?": GOSUB 41 
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2360 IF (i$X)"y") AND (i$X)"Y") THEN FOR 
n=2 T0 11: READ n$: NEXT n: G0T0 2390 

2370 FOR d=2 TO 11: READ s$: PRINT d$(d) 
ss INPUT i$: IF i$02"" THEN c$(c,d)=i$ 
2380 NEXT d 

2390 NEXT c: c=h: RETURN 

2400 REM 

2410 REM conditions 

2420 REM 

2430 h=FNc(c,8): i=FNc(c,3): j=FNe(c,6): 
cU)ABSCIO): cC2I=ABSCCND(j,2d=FNc(c 
2) AND (qei)): cCDSABSChICI,D="y"): 
cta)=ABSCi=j): cCHI=ABSCh$(i,4)="y") 
2440 c(s)=ABSCi=3): cC7)=ABSCFNC(C,S))5) 
© ctBI)=ABSCFNe(c,Sd)2): c(MABS(UAL(cH 
C,N)=1): cIO)=ABSCFNC(x,3=0): c(11)=A 
BSCFNc(h,2)=FNc(c,2)): c(12)=255 

2450 c13)=ABS(z=c): cINABS(gC): cl 
SABS(z=0): cCIS=ABSCStc)=255): cl17)= 
ABSCFNc(z,2)=FNc(c,2)): ct1B)=ABSChlc)=2 
3): ctIN=ABS(i=2) 

2460 c(20)=ABSCFNc(x,4)X0): ct21)=ABS(z= 
x): ct22)=ABS(FNc(x,3)=FNc(c,6)): c(23)= 
ABSCFNe(x 5915): cl24)=ABSCFNe(x,N=7): 
ct25I=ABSCFNe(c,5))15): ct 24)=ABSCANc(c 
‚»)17) 

2470 ct27)=FNeCc,9: cA28)=ABSCFNc(c,2)= 
r)e ct29)=ABSCFNe(c,29=1): cC30)=ABSCFNc 
(c,9)X5) 

2500 RETURN 

2510 REM\ 

2520 REM check location for objects 
2530 REM 

2540 #=0: REM set ‘found flag’ to zero 
2550 FOR b=i TO 12 

2560 IF FNb(b,2)=FNc(c,2) THEN #=1: bel2 
2570 NEXT b 

2580 IF #=1 THEN n=3: 60T0 2600 

2590 n=39 

2600 RETURN 

2610 REM 

2620 REM check for presence of owner of 
object: if present, set x to character n 
unber: junp back into tree 

2630 REM 

2640 #=0:x=0 

2650 FOR m=1 TO 6 

2660 IF (FNe@m,2)=FNc(c,2)) AND (FNcin,6 
)=FNctc,3)) THEN #=1: x=n: GOSUB 2430: n 
=6 

2670 NEXT n 

2680 IF #=1 THEN n=15: 6010 2700 

2690 n=39 

2700 RETURN 

2710 REM 

2720 REM select object at random from ch 
aracter’s location 

2730 REM 

2740 bF0 

2750 FOR s=1 T0 12 

2760 IF FNb(s,2)CDFNc(c,2) THEN 6010 278 
0 

2770 605SUB 4180: IF q=i THEN bes: s=12 
2780 NEXT s 


2790 IF b-0 THEN 6010 2750 

2800 RETURN 

2810 REM 

2820 REM move a character 

2830 REM 

2840 IF FNc(c,4)<1 THEN RETURN: REM too 

weak to nove 

2850 y=D: #=0: FOR we2 T0 5: IF 1$(VAL(c 
$(c,2)) ,w)="0" THEN 60T0 2910 

2860 60SUB 4180: IF q=1 THEN f=1: c$(c,9 
="7": G0T0 2880 

2870 6010 2910 

2880 IF FNc(c,2)=r THEN PRINT c$(c,1);" 

leaves the rom...";: y=1 

2890 c$(c,2)=1$(VWAL(c$(c,2)) wi ws: IF 
FNc(c,2)=r THEN PRINT c$(c,1);" enters 

the roon...";: y=l 

2900 IF y=1 THEN y=c: GOSUB 2250: c=y: P 
RINT: PRINT: REM update characters prese 
nt message 

2910 NEXT w: IF #=0 60T0 2850 

2920 RETURN 


3000 REM 

3010 REM action table 

3020 REM 

3030 FOR n=1 TO 3: G0SUB 4090: NEXT n: n 

$=c$(c,1)+" takes another look at the bo 
dy, and suddenly realises the hideous tr 
uth. "+CHR$(34)+"The pasty’s made of cat 
-food”+CHR$(34)+" ": GOSUB 4630 

3040 60SUB 4390: m$=m$+"yells, and in a 

mad rush the assembled company scranble 
over the bar and attack Fred the Barnan, 
who pleads with them to no avail to spa 
re his miserable life.": 60SUB 4630: 605 
UB 4720 

3050 FOR n=1 TO 2000: NEXT n: 60SUB 4720 
ım$="...and the next day Fred the Barma 
n is nowhere to be seen. However, a num 
ber of oddiy shaped pasties are availab 
le to feed the ever-hungry clientele of 
the Dog and Bucket...": GOSUB 4630: GOSU 
B 4720: END 

3060 hic)=255: GOSUB 4680: m$=c$(c,1)tms 
 60SUB 4630: GOSUB 4720: RETURN 

3070 z=c: 60SUB 4680: n$=c$(c,1)tm$: 605 
VB 4300: m$=n$tm$+"stomach, and imnediat 
ely expires. The other characters are t 
00 involved with their drinks to notice. 
..": 6OSUB 4630: GOSUB 4720: 0: c$(c,4 
=*-1": RETURN 

3080 c$(c,4)="10": g=0: IF tXt,n,4))0 TH 
EN 60SUB 4480: m$=c$(c,1)+tm$: GOSUB 4630 
: 60SUB 4720 

3090 RETURN 

3100 a=20: 60SUB 4350: IF v5 THEN RETU 
RN 

3110 60SUB 4680: GOSUB 4430: GOSUB 4720: 
RETURN 

3120 a=2: 60SUB 4350: IF v<)0 THEN RETURN 
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3130 n$=c$(c,1)+" tries to wake "+c$(x,i 
)+" without success...": 60SUB 4430: 605 
UB 4720: RETURN 

3140 60SUB 4680: m$=CHR$(34) +m$+CHR$(34) 
+" says "tc$(c,1)+" to "+c$(x,1): GOSUB 
4630: GOSUB 4720: RETURN 

3150 GOSUB 4480: m$=CHR$(34) Im$+CHR$(34) 
+", "tchkc,1)+" asks "+c$(x,1): GOSUB 46 
30: 60SUB 4720: RETURN 

3160 G0SUB 4680: m$=c$(c,1)+" and "+c$(x 
‚tms: GOSUB 4630: GOSUB 4720: c$Cc,5)= 
"10": RETURN 

3170 GOSUB 4680: m$=CHR$(34) +m$+CHR$(34) 
+" says "tc$lc,1)+" to "+c$(x,1): GOSUB 
4630: GOSUB 4720: RETURN 

3180 G0SUB 4680: m$=c$(c,1)+m$: GOSUB 44 
30: 60SUB 4720: c$(c,5)="5*: RETURN 
3190 GOSUB 4680: m$=c$(c,1)+m$: GOSUB 44 
30: 60SUB 4720: RETURN 

3200 GOSUB 4480: m$=CHR$(34)4m$+CHR$(34) 
4" says "tc$(c,1)+" dejectediy...": GOSU 
B 4630: GOSUB 4720: c$Cc,5)="10": RETURN 
3210 G0SUB 4680: m$=CHR$(34)+m$+CHR$(34) 
+" says "tc$Cc,1): GOSUB 4630: GOSUB 472 
0: c$(c,9)="3": RETURN 

3220 x=FNc(c,8): m$=c$(c,1)+" and "+c$(x 
‚1)+" are deep in conversation.": GOSUB 
4630: GOSUB 4720: GOSUB 4220: x=0: RETUR 
N 

3230 x=FNc(c,3): IF x>0 THEN GOSUB 4880: 
m$=c$(c,1)+" drunkenly examines "+b$(x, 
ms: GOSUB 4430: GOSUB 4720: GOSUB 422 
0: x=0 

3235 RETURN 

3240 G0SUB 4680: m$=CHR$(34) tn$+CHR$(34) 
+" yelps "+c$(c,1): c$(c,5)="4": GOSUB 4 
630: 60SUB 4720: GOSUB 4220: RETURN 

3250 GOSUB 4480: m$=CHR$(34) tm$+CHR$(34) 
+" howls "+c$Cc,1)+", looking at the *: 
GOSUB 4430: IF FNc(c,3)=3 THEN n$="pasty 
.“": 60SUB 4630: GOSUB 4720: 6OSUB 4220: 
RETURN 

3260 m4="sandwich.": GOSUB 4630: G0SUB 4 
720: 60SUB 4220: RETURN 

3270 60SUB 4680: m$=c$(c 1)tm$: GOSUB 44 
30: 60SUB 4300: GOSUB 4630: m$="drink": 
60SUB 4630: GOSUB 4720: RETURN 

3900 REM 

3910 REM gosub table 

3920 REM 

3930 s(c)=255: m$=c$(c,1)+" Kneels down 
beside the prostrate body of *+c$(z,1)+" 
« The horrible truth slowly dauns, but 
the others seem too drunk to pay any imm 
ediate attention...": GOSUB 4630: GOSUB 
4720: RETURN 

3940 f=0:x=0: FOR y-i TO 6 

3950 IF y=c THEN 6010 3970 

3960 IF FNc(y,2)=FNc(c,2) THEN #=1: 60SU 
B 4180: IF q=1 THEN x=y: 60SUB 2430: y=6 
3970 NEXT y: IF #=0 THEN t(3,1,4)=2: RET 

URN 

3980 IF x=0 THEN 60T0 3940 

3990 RETURN 

3995 cc ,SI=FNn$(c$c,5),1): RETURN 
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4000 REM 

4010 REM low level system subroutines 
4020 REM 

4030 REM clear the screen 

4040 REM 

4050 CLS: RETURN 

4040 REM 

4070 REM beep 

4080 REM 

4090 PRINT CHR$(7);: RETURN 

4100 REM 

4110 REM get a character from the Keyboa 
rd 

4120 REM 

4130 i$=INKEY$: IF i$="" 60T0 4130 

4140 RETURN 

4150 REM 

4180 REM randon nunber routine 

4170 REM 

4180 q=INT(RND(1)*2)+1: RETURN 

4190 REM 

4200 REM zero character codes 

4210 REM 

4220 c$(c,8)="0": c$(c,9)="0": RETURN 
4230 REM 

4240 REM test to see if Key pressed 
4250 REM 

4260 i$=INKEY$: RETURN 

4270 REM 

4280 REM print his/her 

4290 REM 

4300 IF c$(c,7)="#" THEN n$="her ": RETU 
RN 

4310 m$="his ": RETURN 

4320 REM 

4330 REM variable random number routine 
4340 REM 

4350 v=INT(RND(2)%a): RETURN 

4360 REM 

4370 REM print he/she 

4380 REM 

4390 IF c$(c,2)="f" THEN m$="she ": RETU 
RN 

4400 m$="he ": RETURN 

4500 REM 

4510 REM jumpblock 

4520 REM 

4530 REM re-entrant nodes 

4540 ON t(t,n,4) GOSUB 3930,3940 ‚3995 
4550 RETURN 

4560 REM action nodes 

4570 ON t(t,n,3) 60SUB 3030,3060 ,3070 ,30 
80,3100,3120,3140,3150,3160,3170,3180,31 
90,3200,3210,3220,3230 ,3240 ,3250,3270: R 
ETURN 


4600 REM 

4610 REM print messages if player presen 
t 

4620 REM 

4630 IF FNc(c,2)=r THEN PRINT n$; 


4640 m$="": RETURN 

4650 REM 

4660 REM select a message from data stat 
ennent 

4670 REM 

4680 RESTORE 7030: FOR m=i TO t(t,n,d): 
READ m$: NEXT mn: RETURN 

4690 REM 

4700 REM print a blank line 

4710 REM 

4720 IF FNc(c,2)=r THEN PRINT: PRINT 
4730 RETURN 


5000 REM object tree routines 

5010 p=0: REM zero print flag 

5020 IF FNc(c,2)=r THEN p=1 

5030 n=1: REM start at node 1 

5040 IF n)21 6010 5070 

5050 K=c(k(i,nd)+i: IF K41,nd=12 THEN 60 
SUB 4180: k=q 

5050 n=t(1,n,K): GOTO 5040 

5070 IF n)=24 6010 5090 

5080 ON (n-21) G0SUB 2540,2640: 60TO 504 
0 

5090 ON (n-23) 60T0 5100,5130,5140,5180, 

5210,5240 ,5260 ‚5270 ‚5280 ,5300 ,5310,5330, 
5340 ,5360 ‚5370 ,5430 

5100 G0SUB 2740: c$(c,3)=STR$Ch) 

5110 IF p=1 THEN PRINT c$(c,1);" picks u 
p";b$Cb,1): PRINT 

5120 b$(b,2)="0": c$(c,9)="4": RETURN 
5130 c$c,3=c$(c,6) 

5140 IF p=1 THEN PRINT c$(c,1);" picks u 
p";FNi$: -PRINT 

5150 b$(WML(c$lc,3),2)="0": c$tc,9="4" 
® RETURN 

5180 IF p=1 THEN PRINT c$(c,1);" takes a 
sip from" ;FNi$: PRINT 

5170 c$Cc,4)=FNn$(c$Cc,4),-1): RETURN 
5180 G0SUB 4180: IF (p=1) AND (q=1) THEN 
PRINT c$(c,1);" is eating the sandwich. 
": PRINT 

5190 c$(c,B=FNin$lc$ic,4),-2): c$c,9)=" 
6": 6OSUB 4180: IF q=1 THEN GOSUB 4220 
3200 RETURN 

3210 IF p=1 THEN PRINT c$(c,1);" takes a 
tentative bite of the pasty, groans, an 
d drops it on the floor.": PRINT 

3220 gec: REM set pasty eaten flag 

3230 c$c,3="0": c$tc,A)=FNn$Cc$(c,4),1 
0): b$(3,2)=c$(c,2): RETURN 

3240 IF p=1 THEN PRINT c$(c,1);" puts do 
wn"sFNi$: PRINT 

3250 b$(WMLic$ic,3)) ,2d=c$(c,2): c$(c,3) 
="0": RETURN 

3260 c$tc,S=FNn$(c$(c,5),-1): RETURN 
3270 60SUB 5240: RETURN 

3280 IF p=1 THEN PRINT c$(c,1);" throws" 
sbsKVAL<cHEC,3D),1)5" at "sc$Cx,1): PRIN 

e 


3290 c$(x,d=FNn$tc$x,4) 1): bEWALIcH« 
C,3)),29=c$(c,2): c$ix,BI=STRILc): c$Kx, 
9="5": c$6c,3)=*0": RETURN 

3300 GOSUB 4220: RETURN 

3310 IF p=1 THEN PRINT "I think I’ve got 
your drink, says "sc$6c,1);" to "sc$lx, 
1): PRINT 

3320 c$(c,BI=SSTRECK): c$Kc,9)="2": RETUR 

N 

3330 c$(c,A)=FNn$Cc$tc,4),2): RETURN 

3340 IF p=1 THEN PRINT c$(c,1);" gives"; 
FNi$;" to "sc$(x,1): PRINT 

3390 cHx,D=c$lc,d: c$lc,D="0": c$Cc, 
BI=STR$CC): c$Kc,9)="1": RETURN 

3360 GOSUB 4220: RETURN 

3370 IF p=0 6010 5420 

3380 IF p=1 THEN PRINT c$(c,1);" is drun 

kenly thanking ";c$(VAL(c$(c,8)),1);" fo 

r returning "; 

3390 IF p=1 AND c$(c,7)="#" THEN PRINT " 

her ";: GOTO 5410 

3400 PRINT "his "; 

3410 PRINT "drink": PRINT 

5420 GOSUB 4220: RETURN 

5430 RETURN 

5440 REM 

3450 REM sort trees 

5460 n=1 

5470 ON (ttt,n,1)+1) 60TO 5480 ,5490 ‚5500 
‚320 ‚5530 ‚5540 ,5550 

5480 K=cttit,n,2))+1: n=t(t,n,2+K): 60TO 
5470 

5490 G0SUB 4530 : n=t(t,n,3): 60TO 5470 

5500 G0SUB 4570 

5510 RETURN 

3920 GOSUB 4480: GOSUB 4630: GOSUB 4720 

3330 RETURN 

3540 a=ttt,n,4): GOSUB 4350: n=tt,n,3)+ 

v: 60T0 5470 


5590 k=ctt(t,n,2)): n=tCt,n,3)+K: 6010 5 
470 


6000 REM 

6010 REM character data 

6020 REM 

6030 DATA "Toby Beicher" ,"2","7","10*,"1 
0*,"7" "m" ,"0*,"0","1","4","Fiona Frappe 
“,.1","8","30","10","8","4","0",0","1°, 
"3" ,"Steve ig","1","9","8","10","9","n 
0,06", "Sally Short","2","0", 
"20" ,"10","10","4","0","0°,"1","5" 

6040 DATA "Rupert Beer" ,"2","11*,"10*,"6 
"11","'n","0","0","1","6","Molly Mixer" 
17,12" ,"15","6","12°,"4","0°,°0°,"1°, 
“you","1","0% "255" ,"255°,"0*,'n","0 
.0,.0%,.0* 

6050 REM 

6060 REM location data 


6070 REM 
6080 DATA "You are in the lounge of the 


Dog and Bucket. Several shady charact 

ers are  gathered together in a corner 
playing dominoes. Behind the counter 
‚ Fred the Barman looks his usual cheery 
self. Exits lead east.","0","0*,"2" 
"Q* 

’ 


6090 DATA "Behold the saloon of the Dog 

and Bucket,which looks as if it could do 
with extensive redecoration. The f 
loor appears to have been regularl 

y hosed down with beer slops. Doors 

lead west and south." ,"0","3","0","1" 

6100 DATA "Ugh! This is the Kitchen, whe 

re the famous Dog and Bucket Cornish 
Pasties are prepared for an ever-hung 

ry clientele. You notice a nunbe 

r of empty cat-food tins, which is stran 

ge because there are no cats.","2","0"," 
0" ,"0" 

6110 REM 

6120 REM object data (for b$(12,4)) 

6130 REM 

6140 DATA " a glass of beer","2","n","y" 
‚an empty tin of catfood","3","n","n", 
" a Dog and Bucket cornish pasty","1","y 
","n"," a bar-stool","2",'n","n"," an as 
htray","1","n","'n" 

6150 DATA " a stale ham sandwich","2","y 
","n"," a pint of bitter","0*,"n","y"," 
a creme de menthe","0","n","y"," a whisk 
y and water","0","n","y"," a neat vodka" 
‚"2","n","y"," a pint of lager" ,"0*,"n", 
"y"," a gin and ginger ale","0*,"'n","y" 
6160 REM 

6170 REM character attribute data (for d 

$1D)) 

6180 REM 

6190 DATA "Location" "Strength" ,"Invento 
ry" "Mood" ,"Oun object","Sex","Last char 
(Ich)","Last command code (1cd)" ‚"Handl 
e frequency" ‚"Move frequency" 

6200 REM 

6210 REM object tree data 

6220 REM 

6230 DATA 1,2,22,12,5,4,2,7,6,3,9,8,4,11 
‚10,12,39,24,12,6,25,5,12,39,6,13,27,12, 
23,29,12,30,14,12,26,39,12,28,39,12,31,1 
7,7,18,16,8,39,19,9,21,39,10,36,20,12,33 
‚32,12,35,34,11,38,37 

6240 REM 

6250 REM plot tree data 

6260 REM 

6270 DATA 0,13,2,22," ",0,14,5,3," ",0,1 

3,21,4," ",5,0,18,3," ",0,16,6,7," ",0,1 

7,7,11," ",0,18,9,8," ",0,17,12,13," ",0 
‚19,10,17," ",5,0,14,3," ",1,0,7,1," ",4 
‚0,0,0," ",2,0,1,0,* ",2,0,5,1," ",4,0,0 

‚0, ",4,0,0,0," ",2,0,2,4," *,2,0,3,2," 


6280 DATA " ",2,0,4,0," ",4,0,0,0," ",4, 
0,0,0," * 
6300 REM interaction tree 


6320 DATA 1,0,3,2," ",4,0,0,0," ",0,20,6 
„4," ",0,21,7,5,° *,4,0,0,0," *,5,0,8,3, 
nn 2.0.0.0, °,0.22.11.14,° 9 .0,23,32,2 
?," ",0,24,13,18," ",4,0,0,0," ",4,0,0,0 
„" ",4,0,0,0," *,5,0,15,2," ",4,0,0,0,* 
",2,0,2,9,° -.0.20,22,21,° * 

6330 DATA 5,0,19,2," ",4,0,0,0," *,2,0,8 
64" ",2,0,9,7," ",2,0,10,8," * 

6340 REM general activity tree 

6350 DATA 5,0,2,5," ",0,26,11,7," "6,27 
24,7," ",0,28,8,12," ",0,29,9,15,° °,5, 
0,21,3," ",2,0,11,9," *,4,0,0,0," ",4,0, 
0,0," ",4,0,0,0," *,0,30,10,18," ",5,0,1 
3,2," ",2,0,12,10," ",4,0,0,0," ",5,0,16 
»2," ",3,0,0,11," *,3,0,0,12,° * 

6360 DATA 5,0,19,2," ",4,0,0,0,* ",2,0,1 
3,13," *,2,0,14,14,° ° .2,0,14,15," ",2,0 
‚14,16," ",4,0,0,0," ",0,11,31,32," ",4, 
0,0,0,° *,5,0,33,9,” ".0,11,36,32,° *°,5, 
0,39,2,° -12,0,14,17,° * 


4 

‚0," ",2,0,16,18,* ",4,0,0,0," ",4,0 

u ",2,0,17,19," ",4,0,0,0," ",2,0,1 

’ 

6380 REM object awareness tree 

6390 DATA 0,4,8,2," ",5,0,3,9," ",4,0,0, 

0," ",4,0,0,0,* *,4,0,0,0," ",4,0,0,0,* 

".2,0,14,21,° ",1,0,9,3," ",5,0,10,4,° * 

»2,0,19,22," ",2,0,14,23,° ",4,0,0,0," * 

‚4,0,0,0," . 

7000 REM 
7010 REM nessage data 
7020 REM 
7030 DATA. "A strange smell fills the air 
...could it be the odour of Catty-Kit A 
La Carte?*," suddeniy collapses on the f 
loor, clutching "," looks rather ill, an 
d warns the others not to touch the past 
y." 

2040 DATA * examines the tin carefully, 
and assunes a thoughtfull expression.’ ," 

What are you doing with my drink?" ‚"Uher 

e have you been?" 

?050 DATA ", in a drunken fit, Jump onto 
the table and dance together." 

7060 DATA "You look cheerful"," clanbers 
drunkenly onto the bar, tries to dance, 
and falls off again," 

7070 DATA ", in a drunken stupor, sudden 

Iy looks up and peers through the VDU sc 

reen at you....","Fred the Barman pulls 

another pint...","Fred is busy cleaning 

glasses" j 

?080 DATA "It’s a dog’s Tife...","I come 
not to bury Caesar...","Let me tell you 
the story of ny life...","Barnan, fill 

ny glass!" 

7090 DATA "Hi there, everyone..."," as i 

f it held the secret of life.","What did 
you do that for!!*,"] think I’m going t 

0 be sick!" 

7100 DATA "Ahh...This drink is subline.. 

."," is desperately hunting for ","Who’s 

got ny drink?" 
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Das hohe C 


Wir untersuchen die Steuerstrukturen von C und beginnen mit den 
logischen Operatoren. Bei den Schleifenanweisungen finden wir 
bemerkenswerte Parallelen zu PASCAL. 


D: meisten Vergleichsoperatoren von C 
entsprechen denen anderer Sprachen: <, 
<=, >, >=, Beachten Sie, daß das Symbol für 
gleich == ist und für ungleich !=. Die logi- 
schen Operatoren sind && für AND und Il für 
OR. Auch die hierarchische Abfolge der Ope- 
ratoren entspricht der sonst üblichen Überein- 
kunft. Komplizierte logische Ausdrücke lassen 
sich daher ähnlich wie in BASIC anlegen. Die 
Werte von Zuordnungen kann man in logi- 
schen Bedingungen testen. So ist beispiels- 
weise über die Standardfunktion getchar(), die 
das nächste Zeichen aus dem Eingabekanal 
holt, eine Bedingung aufzubauen: 


char count(max line length—1 && (c= 
getchar())) !=/n’ && c != EOF 


Dabei wird zunächst die maximale Zeichen- 
zahl überprüft, dann (falls die Zahl nicht er- 
reicht ist) das nächste Zeichen geholt und 
schließlich getestet, ob das Zeilen- oder Da- 
teiende vorliegt — alles in einem einzigen logi- 
schen Ausdruck. 

Auch logische Ausdrücke können Werte ha- 
ben: FALSE ist NULL und TRUE ist Eins (jeder 
Wert, der nicht Null ist, wird als TRUE interpre- 
tiert). Damit lassen sich logische Ausdrücke 
auch für Berechnungen einsetzen. Einfache 
numerische Werte können ohne Operator ge- 
testet werden. Eine Ganzzahl ungleich Null 
verwandelt der Negationsoperator ! in Null, 
eine Ganzzahl gleich Null in Eins. 


if(lint wert) 


entspricht 
iflint wert=—=0) 


Außer den normalen logischen Operatoren be- 
sitzt C eine Reihe von Bitoperatoren, die mit je- 
dem Typ von integer oder char Bitmanipulatio- 
nen vornehmen können, die im allgemeinen 
nur in Assembler zur Verfügung stehen: 


&u bitweise AND 

| bitweise inklusiv OR 

A bitweise exklusiv OR 

<<n verschiebt die Ganzzahl n um n Bits 
nach links 


>>n verschiebt die Ganzzahl n um n Bits 
nach rechts 
= Einerkomplement 


Der &-Operator wird oft für die Ausmaskierung 
bestimmer Bits eingesetzt, damit ein oder meh- 
rere Bits des Wortes getestet werden können. 
Der folgende Befehl prüft, ob das Bit 3 eines 
bestimmten Bytes auf 1 steht: 


ifc&Ox08) 


Beachten Sie, daß die Schreibweise 0x vor 
Hexadezimalkonstanten steht und Zahlen, die 
mit Null beginnen, vom Computer als Oktal- 
zahl verarbeitet werden. 

Verzweigungen lassen sich in C mit den üb- 
lichen IF-Abfragen ausführen: 


iffausdruck) 
anweisung 1 

else 
anweisung 2 


Dabei wird normalerweise ein logischer Aus- 


Das fehlende 
THEN 


Die IF-Bedingung von 

C kennt kein THEN; ‚Ir Falsch 
der Einsatz von ELSE Bedingung 1 

ist wahlfrei. Unser Ab- 

laufdiagramm zeigt 

den Programmfluß. 


Bei verschachtelten 
IFs bezieht sich jedes 
ELSE auf das unmit- 


telbar vorstehende IF. n 
Anweisung 1 


Falsch IF 
Bedingung 2 


ELSE . 


druck verwandt, doch ist jeder Ausı 
lich, der eine Ganzzahl liefert. Be: 
daß kein then aufgeführt ist. Die Ver 
des else-Teils ist wahlfrei. 

Anweisungen können einfaches Formal ha- 
ben, zusammengesetzte Anweisungen müs- 
sen in Klammern {) eingeschlossen werden. 
Wie in vielen anderen Sprachen können ver- 
schachtelte ifs Probleme verursachen. Hier gilt 
aber ebenfalls, daß jedes else dem unmittel- 
bar davor auftretenden if zugeordnet wird. Die 
Regel läßt sich jedoch ganz einfach mit Klam- 
mern umgehen. 


case ‘a: 

case ‘e: 

case i': 

case '0' 

case ‘u’ : nvowelt+ ; 
break ; 

case‘: 


default: ncons++ ; 
break ; 


Steuerung mit SWITCH 


Die SWITCH-Anweisung funktioniert 
ähnlich wie ON...GOTO in BASIC. Der 
Parameter von SWITCH wird bewertet 
und die Steuerung an das entspre- 
chende CASE übergeben. In unserem 
Beispiel wird je nach dem Wert der 
Variablen c die entsprechende Zähler- 
variable (nvokal, nsatz, oder nkons) 
um Eins erhöht und so die Anzahl der 
Vokale, Konsonanten- oder Satzzeichen 
gezählt. Die Variable c, normalerweise 
ein Eingabewert, wurde hier mit dem 
Wert „.“ geladen, um den Programm- 
ablauf zu verdeutlichen. Beachten Sie, 
daß das „Weiterreichen“ von einem 
CASE zum nächsten ein bequemer 
Weg ist, mehrere CASE in einem 
Durchgang zu behandeln. 


Wahlmöglichkeiten mit mehr als zwei Alte 
nativen werden von der Anweisung switch ge 
steuert, die der PASCAL-Funktion case e 
spricht. 


switch(ganzzahlausdruck) 
case value 1:anweisung 1; 
case value 2:anweisung 2; 


default: default anweisung; 


Die Werte von case müssen unterschiedliche 
Konstante sein. Die Angabe von default ist 
wahlfrei. Da die Case-Werte Labels sind, 
springt die Programmausführung nicht auto- 
matisch auf die Endanweisung, wenn die Aus- 
führung eines Case beendet ist, sondern 
spricht das nächste Case an. 

break kann das jedoch verhindern. Die Steue- 
rung wird dann an die Anweisung übergeben, 
die auf switch folgt. (siehe Kasten). 

Es gibt drei Arten von Schleifen. Am häufig- 
sten ist die while-Anweisung: 


while(bedingung) anweisung; 


Zusammengesetzte Anweisungen werden mit 
Klammern umschlossen. 

Da Bedingungen beliebige Ganzzahlaus- 
drücke sein können, ist es eine weit verbrei- 
tete (wenn auch keine gute) Programmierpra- 
xis, den Schleifeninhalt soweit wie möglich als 
Bedingung anzulegen. Die folgenden Bei- 
spiele zeigen zwei Wege, eine bestimmte 
Schleife zu schreiben. Dabei werden Ziffern, 
die als alphanumerische Zeichen eingegeben 
werden, in Ganzzahlen umgewandelt. Das er- 
ste nichtnumerische Zeichen beendet schließ- 
lich die Routine. 


int num; 

char c; 

num=0; 

c=getchar(); 

while(c)='0' && c(='9') 

| num=num*10+c—'0 
c=getchar(); 


| 


geordnete Theme 
- speziell auf das eng 
mit C verbundene Be- 
triebssystem UNIX. 

(ISBN 0-8053-6860-4). 
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Unser Beispielpro- 
gramm zählt und 
druckt alle Primzahlen 
zwischen 2 und 1000. 
Interessant ist beson- 
ders der kompakte 
Code, der durch die 
Vorinkrementierung mit 
++ und das Format der 
FOR-Schleife erzeugt 
wird. 
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Achten Sie darauf, wie die mathematische Be- 
rechnung die Zeichen c und '0' einsetzt. Der 
ASCI-Code wird automatisch in den Typ int 
umgewandelt, damit eine Rechnung überhaupt 
stattfinden kann. Die zweite Methode verlegt 
die Zuordnung zu c in die Schleifenbedingung: 


num=0; 
while((c=getchar()) >= '0' &&c <='g') 
num=num*10+c—'0'; 


Da hier nur ein einziger Befehl wiederholt 
wird, sind keine Klammern nötig. 

Die for-Anweisung ist die zweite Methode, 
Schleifen anzulegen. Sie ähnelt dem 
FOR... .NEXT von BASIC und enthält eine Initia- 
lisierung, eine Endanweisung (oder Fortset- 
zung) und eine Schrittanweisung, die bei je- 
dem Schleifendurchlauf aktiviert wird. In den 
meisten Sprachen wird die Initialisierung mit 
dem Wert einer Ganzzahlvariablen durchge- 
führt. Die Endbedingung wird von dem letzten 
Wert bestimmt, den diese Variable erreichen 
kann. Die Schrittfunktion addiert einfach einen 
Ganzzahlenwert auf die Variable. 


for(expl;exp2;exp3) 
anweisung; 


expl enthält die Initialisierung und läuft vor der 


Primzahlen 


/* Das Programm zeigt alle Primzahlen unter 

1000 */ 

main() 

{ 
int prime count=0, limit=1000, divisor, 
number to test; 

/* Beachten Sie die Initialisierung der Variablen 

prime count und limit in der Deklarationsanwei- 

sung */ 
for (number to test=2, number to test< 
limit, ++ number to test) 

/* Es folgt die Hauptschleife, die alle Zahlen 

zwischen 2 und 1000 testet: */ 


divisor=1; 
/* Mit %(mod)Operator Divisoren finden */ 
while (number to test %++divisor !=0); 
/* Die Inkrementierung wird vor dem Test aus- 
geführt */ 
/* Die Zahl ist Primzahl, wenn der Divisor den 
Wert von number to test erreicht */ 
“if (divisor==number to test) 
/* 1 zum Zähler addieren */ 
[ 
++-print count; j 
/* Zehn Primzahlen auf einer Zeile anzeigen */ 
printf("%6d” ‚number to test); 
if (prime count % 10==0) 
printf(”/n”; 


} 


) 
printf("/n/nes gibt %d Primzahlen unter %d/n”, 


prime count,limit); 


) 


ersten Ausführung der Anweisung ab. Solange 
die Bedingung wahr (nicht-Null) ist, werden 
die Fortsetzungsbedingung exp2 und die 
Schleife wiederholt. exp3 wird am Ende jeder 
Anweisung ausgeführt. Die BASIC-Schleife: 


FOR I=1 TON 
Anweisung(en) 
NEXT | 


entspricht in C: 
for(i=1 ;i<=n;i++,) 
anweisung; 


Flexible Sache 


Um zeigen zu können, wie flexibel die for-An- 
weisung ist (und C überhaupt), codieren wir 
die WHILE-Schleife für die Umwandlung eines 
Eingabestrings in Ganzzahlen mit for: 


for(num=0;(c=getchar()) >='0' && ce <='9'; 
num=num*10+c—'0'); 


Beachten Sie, daß der gesamte Schleifeninhalt 
im Inneren der Bedingung liegt. Obwohl da- 
durch kompakter und schneller Code entsteht, 
ist er doch recht unübersichtlich. 

C kann Schleifen noch auf eine dritte Art bil- 
den. Sie entspricht dem repeat. . ‚until von PAS- 
CAL. Hier wird der Test im Gegensatz zu den 
anderen beiden Abläufen erst am Ende der 
Anweisung durchgeführt: 


do 
anweisung 
while(bedingung); 


Zwei Zusatzanweisungen gestalten die Schlei- 
fensteuerung einfacher als in anderen Spra- 
chen. Wenn die Programmausführung inmitten 
einer Schleife ein break findet, verzweigt sie 
sofort auf den unmittelbar hinter dem Schleifen- 
ende liegenden Befehl. Das folgende Pro- 
grammbeispiel liest eine Zeichenfolge ein, die 
mit einem Return beendet wird, springt aber 
auch bei der Eingabe von Control C (ASCI- 
Code 3) aus der Schleife: 


while((c=getchar())!="/n') 


else 
continue /* c weiter bearbeiten */; 


Die Anweisung funktioniert ähnlich, aktiviert 
aber die nächste Schleife automatisch. 

Obwohl mit break und continue alle GOTO- 
Befehle überflüssig wurden, gibt es in C ein 
goto. Es wird mit einem Mechanismus der Na- 
mensgebung eingesetzt und sollte nur in Spe- 
zialfällen verwandt werden. 


Fürs 


Heimkino = 


Im Unterschied zu den meisten 
andern MSX-Rechnern verfügt der 
PX-7 von Pioneer über zahlreiche 
„audiovisuelle“ Schnittstellen. 


D: Personal Computer PX-7 von Pioneer 
erlaubt es, die diversen Möglichkeiten 
des Speichermediums Laserdisk in Verbin- 
dung mit dem abgebildeten Laserplattenspie- 
ler LD-700 bzw. dem aufwendigeren LD-1100 zu 
einem erschwinglichen Preis in die Praxis um- 
zusetzen. Der PX-7 ist ein hochentwickelter 
MSX-Rechner, der LD-700 ein preisgünstiges 
Laufwerk für 30 cm-Philips-Bildplatten. 

Ungewöhnlich für einen MSX-Computer ist 
beim PX-7 schon die separate Tastatur. Der 
Rechner selbst kann in unmittelbarer Nähe von 
Videorecorder, Bildplattenspieler, Fernseher 
und HiFi-Anlage untergebracht werden, zumal 
er auch rein äußerlich eher einem HiFi-Bau- 
stein als einem Computer ähnelt. Die Tastatur 
ist mit dem Rechner über ein 1,50 m langes Ka- 
bel verbunden. Die Rechnerfrontplatte enthält 
eine Kopfhörerbuchse, einen Lautstärkeregler 
und einen Mischregler zur Einstellung des Pe- 
gelverhältnisses zwischen Computer-Sound 
und Signalen aus externer Quelle, etwa dem 
Laserplattenspieler. Außerdem gibt es einen 
Audio-Video-Überbrückungsschalter, der den 
Rechner deaktiviert und die Audio- und Video- 
geräte direkt mit einer angeschlossenen HiFi- 
und Fernsehanlage verbindet. 


Das Innenleben 


In dem Gehäuse steckt ein normaler 32K-MSX- 
Computer, der mit MSX-Software und -Periphe- 
rie arbeiten kann. Überraschenderweise be- 
nutzt der PX-7 trotz Laserplattentechnologie 
noch Cassetten für die Programm- und Daten- 
speicherung. Wer tiefer in die Möglichkeiten 
des Rechners einsteigen will, findet aber rück- 
seitig einen zweiten Steckmodul-Anschluß, 
über den auch Diskettenlaufwerke und ande- 
res Zubehör zu betreiben sind. 

Weiterhin gibt es Schnittstellen für Fernse- 
her, Composite-Video- und RGB-Monitor, Cas- 
settenrecorder, zwei Joysticks, Centronics- 
Drucker und die erwähnten beiden Modul- 
Steckplätze sowie HiFi-Stereo-Anschlüsse und 
ein „System Control Interface“. Letzteres ist 
eine universelle Schnittstelle für den Betrieb 
von Bildplattenspielern, Videorecordern usw. 
Wenn Neuentwicklungen auf den Markt kom- 


Der PX-7-Computer 
und der Bildplatten- 
spieler LD-700 von 
Pioneer sind auf- 
einander abge- 
stimmt. Der PX-7 
kann mit Ergän- 
zungsbefehlen 
zum Standard- 
MSX-BASIC für 
die Steuerung des 
Plattenspielers 
programmiert 
werden, so daß 
die Auswahl von 
Einzelbildern 
oder Bildfolgen 
vom Rechner 
her möglich ist. 
Außerdem kön- 
nen Computer- 
Sound und 
-Grafik mit 
dem Signal von 
der Laserplatte 
gemixt werden. 


Bei CAV-Laserplatten 
(Constant Angular Velo- 
city = konstante Dreh- 
zahl) ist wie bei Ma- 
gnetplatten ein Direkt- 
zugriff auf Einzelinfor- 
mationen möglich. Das 
Abtastsystem lokali- 
siert die Plattensekto- 
ren anhand der hier 
erkennbaren radialen 
Teilung. 
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Der PX-7 zeichnet sich 
vor allem durch ein 
großzügiges Sortiment 
von Anschlüssen aus, 
mit denen über Stan- 
dardkabel ein ganzes 
Arsenal von HiFi- und 
Videogeräten gesteuert 
werden kann. 


Eins der ursprüng- 
lichen Ziele bei der 
Schaffung des MSX- 
Standards bestand 
darin, den Computer 
zum Kontrollzentrum 
für die ganze häusliche 
Unterhaltungselektro- 
nik einschließlich 
sämtlicher Ton- und 
Videokomponenten zu 
machen. Der PX-7 von 
Pioneer ist wohl der er- 
ste MSX-Rechner, der 
dafür wirklich geeignet 
ist. Die Erweiterung 
des standardmäßigen 
MSX-BASIC zum „P- 
BASIC“ erlaubt die 
softwaremäßige Steue- 
rung von Audio- und 
Videogeräten. Außer- 
dem ist die Mischmög- 
lichkeit mit Ton und 
Grafik vom Computer 
vorgesehen. 
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Budio-Buchsen 


> Ru Video-Buchsen 


UL) s HF-Ausgang 
” ne RGB-Ausgang 
Erweiterungs- a7 Ns 


steckleiste y 
a Be 
Syste nschlüsse . 


Steuer 


Druc 


men, sind sie über dieses Interface und die zu- 
gehörige Software leicht in das System einzu- 
beziehen. Mehrere Geräte können zugleich 
angeschlossen sein: Jedes bekommt einen ei- 
genen Identifizierungscode, so daß über Rech- 
nerbefehle individuelles Ansprechen überaus 
bequem möglich ist. 

Die Schnittstellensteuerung wird durch 
ROM-gespeicherte Ergänzungsbefehle zum 
MSX-BASIC sehr erleichtert. Nach Einschalten 
des Rechners können Sie zwischen Standard- 


Composite-Video- 
Farbmonitor 


Video-Ausgänge 


(Eingabe) / 


Video- 
Eingänge 


Computer- 


MSX-BASIC und P-BASIC (enthält zusätzliche 
Befehle für die Gerätesteuerung) wählen. Die 
Zusatzkommandos sind als CALL-Befehle im- 
plementiert, so daß das MSX-BASIC selbst 
weiterhin normal läuft. Die meisten der 16 
neuen Befehle betreffen die Steuerung der Vi- 
deo- und Audio-Ports des Computers. Auf dem 
Bildschirm lassen sich entweder das Signal 
vom Rechner, das einer andern angeschlosse- 
nen Quelle (beispielsweise eines Laserplat- 
tenspielers) oder eine Überlagerung von bei- 
dem darstellen. Vier Sondertasten am Bedien- 
pult erlauben rasches Umschalten zwischen 
Rechner, Videogerät und Überlagerung. 


Mehr als MSX-Standard 


Die Sound-Befehle ermöglichen die Stumm- 
schaltung eines oder beider Stereokanäle und 
die Balance-Einstellung. Weitere Ergänzungen 
zum MSX-BASIC bilden diverse Befehle zum 
Abspeichern von Bildern auf Diskette. Am 
wichtigsten ist aber das CALL REMOTE-Kom- 
mando, über das man jedem an der System- 
steuerung hängenden Gerät individuelle An- 
weisungen erteilen kann. 

Für den Laserplattenspieler gibt es etliche 
Sonderbefehle, z.B. bewirkt CALL SEARCH 
(0,F,2000) das Aufsuchen des 2000. Einzelbil- 
des (Frame) auf der Platte. Über CALL FRAME 
wird beim Erscheinen eines bestimmten Ein- 
zelbilds (oder eines Kapitelanfangs) ein vor- 
her festgelegtes Unterprogramm aufgerufen. 


RGB- 
Farbmonitor 


HiFi-Anlage 
Tonsignal - — 
Ein/Ausgänge 


Peripherie 


Lautsprecher 
Beim PX-7 sind 
zwei Stereo-Laut- 


2 7 
sprecher eingebaut 


Tastatur- 
anschluß 
Hier wird das Kabel 
der separaten Tastatur 
eingesteckt 


Steuereingänge 

Über zwei neunpolige 
D-Normbuchsen können 
Joysticks oder ein Gra- 
fiktablett angeschlossen 
werden 


Pegelregler 
Die Schieberegler 
dienen zur Einstellung 
der Lautstärke und 
zum Zumischen von 
Computer-Sound 


Das erlaubt die direkte Einbindung des Laser- 
plattensystems in ein Programm. 

Der Bildplattenspieler LD-700 ist ein Stan- 
dardgerät und daher unabhängig vom Rechner 
erhältlich und verwendbar. Eine CAV-Platte 
von 30cm Durchmesser enthält bis zu 54 000 
Bilder (Laufzeit 36 min.). Neben dem Abspie- 
len ganzer Filme sind Standbild, Zeitlupe und 
Zeitraffer möglich, und zwar in wesentlich hö- 
herer Qualität als bei Band-Videogeräten. Die 
mitgelieferte Fernbedienung erlaubt Kapitel- 
und Einzelbildsuchlauf — ein Kapitel ist eine 
zusammengehörige Folge von Einzelbildern. 


Nicht nur Stereo 


Jede Platte verfügt über eine doppelte Tonspur 
und ermöglicht daher die zweisprachige Ton- 
aufzeichnung; bei einigen Platten trägt die 
zweite Spur aber auch schon ein fertiges Com- 
puterprogramm. 

Die Hardware von Pioneer ist solide und 
ausgereift. Der Rechner erwärmt sich im Regal 
über dem Bildplattenspieler allerdings erheb- 
lich. Als Zubehör wird das Grafiktablett PXTB-7 
mit dem Softwarepaket „Video Art" auf Cas- 


Modul-Steckplatz 
Hier lassen sich 
ROM-Softwaremo- 
dule einschieben 


ROM mit BASIC- 
Erweiterungen 

Die P-BASIC-Befehle 
von Pioneer für die 
Steuerung von au- 
diovisuellen Geräten 
stehen in diesem 
8K-ROM 


280-CPU 

Wie alle MSX-Rech- 
ner ist auch das PX- 
7-System um ein Z80- 
CPU als Basis aufge- 
baut 


® 


Tonbausteine 

Die Verstärkungsan- 
passung und das 
Mischen der Tonsi- 
gnale erfolgt in die- 
sen Yamaha-Chips 


sette angeboten, zum Erstellen von Program- 
men für die Einblendung von Computergrafik 
in Laserplattenbilder. Die Software ist leider 
enttäuschend langsam. 

Interaktive Videoprogramme für den Ge- 
brauch im Wohnzimmer, Büro oder Klassen- 
raum sind mit dem PX-7 jedoch sehr einfach zu 
schreiben und zu betreiben. Die Programmer- 
stellung ist dank der integrierten BASIC-Erwei- 
terungen fast trivial. Die Geschwindigkeit ist 
zudem unkritisch, weil das Abspielgerät zum 
Aufsuchen eines vorgegebenen Einzelbilds 
ohnehin rund zwei Sekunden Zeit benötigt. 

Die Kombination PX-7/LD-700 ist keine 
Sparversion, sondern sie bietet alle Möglich- 
keiten für den interaktiven Video-Betrieb. Sie 
können Bildplatten-Computerspiele schreiben, 
oder auch gewaltige Bilddaten organisieren. 
Das System arbeitet auch mit CPE(Computer- 
Programm Encoded)-Platten, die auf einer der 
Tonspuren ein Rechnerprogramm enthalten. 

Wie stets beijungen Technologien dauert es 
einige Zeit, bis ein umfassendes Softwarean- 
gebot für die neue Hardware verfügbar ist. 
Dennoch ist der PX-7 einer der interessante- 
sten MSX-Rechner. 


Pioneer 
PX-7 


ABMESSUNGEN: 
420 X 323 X 70 mm 


SPEICHER: 


32K Benutzer-RAM, aus- 
baubar auf 64K; 16K Vi- 
deo-RAM; 40K ROM 


ZENTRALEINHEIT: 
Z80-CPU mit 4-MHz-Takt 


BILDSCHIRM- 
DARSTELLUNG: 


24 Zeilen zu 40 Zeichen; 
16 Farben, höchste Gra- 
fikauflösung 256 X 192 
Punkte; bis zu 32 Sprites 
(Video-Chip 9929) 


SOUND: 


Dreistimmig (Tongenera- 
tor 8910), Stereo-Ein/ 
Ausgänge 


SCHNITTSTELLEN: 


Composite Video, An- 
tenne, RGB, Centronics- 
Drucker, 2 Joysticks, 2 
Modulsteckplätze, Cas- _ 
settenrecorder, Audio- 
und Video-Ein/ 
‚Ausgänge, Kopfhörer, 
Systemsteuerung 


VERFÜGBARE 
SPRACHEN: 


MSX-BASIC (32K) und 
P-BASIC (8K) 


DOKUMENTATION: 


Mitgeliefert werden 
kleine Anleitungsbücher, 
wie bei HiFi-Anlagen üb- 
lich. Die Dokumentation 
ist vollständig und ent- 
hält eine Menge techni- 
scher Details. 


STÄRKEN: 


Der PX-7 ist wohl das 
höchstentwickelte MSX- 
System und bedeutet in 
Verbindung mit dem 
Bildplattenspieler einen 
echten Fortschritt in der 
Unterhaltungselektronik. 
Die Komponenten sind 
solide und ansprechend 
gebaut. 


SCHWÄCHEN: 


Der MSX-Standard hat 
sich bisher nicht auf 
breiter Front durchsetzen 
können und wenig Unter- 
stützung durch die Zulie- 
ferbranche gefunden. Da- 
her sind auch beim PX-7 
die Möglichkeiten nur 
begrenzt nutzbar. 
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Fenster 
zur Welt 


Wir untersuchen, wie sich seit 
den siebziger Jahren aus den 
Ursprüngen von SMALLTALK eine 
Betriebsumgebung entwickelte, 
die die neue Computergeneration 
radikal beeinflußt: das WIMP- 
Systemkonzept. 


nfänger werden beim Einschalten ihrer 

Personal-Computer üblicherweise mit 
einer von zwei Arten von Programmen konfron- 
tiert. Wenn in das Gerät eine BASIC-Version 
eingebaut ist, kann leicht der Eindruck entste- 
hen, daß Computer nicht mehr sind als BASIC- 
Maschinen. 

Die integrierten BASIC-Interpreter sind je- 
doch oft leichter zu bedienen, als der zweite 
Programmtyp — das Betriebssystem ohne 
Sprachumgebung. Betriebssysteme wie CP/ 
M, MS-DOS, UNIX etc. haben die Eigenart, 
eher bedienerunfreundlich zu sein, da sie 
noch aus den Tagen stammen, in denen der 
Computeranwender mit den technischen Fein- 
heiten seiner Maschinen vertraut sein mußte. 

Inzwischen haben Geräte wie der Apple 
Macintosh die Kommunikation zwischen An- 
wender und Computer radikal verändert. 
Diese Systeme arbeiten mit Fenstern (Win- 
dows), Symbolen (Icons) und Mäusen und 
werden daher kurz WIMP-Systeme genannt. 
Die WIMP-Technologie ist jedoch nur ein ein- 
ziger Aspekt des Forschungsbereiches der 
„objektorientierten Programmierung“. Da die 
Forschungsergebnisse weitreichende Auswir- 
kungen haben, beschäftigen wir uns hier aus- 
führlich mit der Entwicklung auf diesem über- 
aus interessanten Gebiet. 

Ohne Zweifel ist SMALLTALK - ein Projekt 
des Xerox Forschungsteams im Palo Alto Rese- 
arch Centre (PARC) — bisher die am stärksten 
objektorientierte Sprache. Bei den Ursprüngen 
von SMALLTALK treffen wir auf ein ungewöhn- 
liches Projekt — das Dynabook von Alan Kay. 

Es mutet seltsam an, daß eine Firma, die ihr 
Geld hauptsächlich mit der Papierverarbeitung 
verdient, großes Interesse am Konzept einer 
„papierlosen“ elektronischen Büroumgebung 
zeigt. Die Xerox Company of America hatte je- 
doch schon in den frühen siebziger Jahren zu- 
künftige Tendenzen vorausgeahnt und wurde 
daher — vielleicht mehr als andere Firmen — 
zu einem der wichtigsten Vorreiter bei der Ent- 
wicklung von WIMP-Systemen. 
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Der COBOL 
Kontinent 


#®-. Der SMALL- 


EP TALK-Archipel SE Eng 
Aus, TE Eee ANTENNEN 


e FORTH-See 


Die Landschaft der Pro- 
grammiersprachen bie- 
tet dem unvorsichtigen 
„Wanderer“ schillernde 
Eigenschaften, aber 
auch große Gefahren. 
Auf dem erst kürzlich 
entdeckten Archipel 
SMALLTALK entstand 
jedoch der WIMP-Zep- 
pelin, der über alle Ge- 
fahren und Untiefen 
hinweggleitet. WIMP 
segelt durch den wol- 
kenlosen Himmel, ohne 
| auf ein Hindernis zu 
treffen und wirft seinen 
freundlichen Schatten 
über Wasser und Land. 


Bei der großen Konkurrenz von IBM, DEC 
und anderen war Xerox klar, daß ihr der späte 
Eintritt in den Computermarkt nur gelingen 
würde, wenn sie sich von den anderen Anwen- 
dern deutlich abhöbe und so einen Marktanteil 
erobern könnte. Xerox gründete daher PARC, 
versah Forscher und Techniker mit großzügi- 
gen Mitteln und gab ihnen die weitgesteckte 
Aufgabe, die Gebiete der Büro-Automatisie- 
rung, der Künstlichen Intelligenz (KT), der 
Schnittstelle Mensch-Maschine (MMI) und 
Computersysteme allgemein zu erforschen. 

Den Anstoß für SMALLTALK gab das futuri- 
stische Dynabook — auch „Informationssystem 
für Alle“ genannt. Es wurde von dem Studen- 
ten Alan Kay entwickelt, der davon ausging, 
daß bald jeder Bürger einen kleinen, batterie- 
betriebenen Computer (etwa in Buchgröße) 
besitzen würde, mit dem er auf den gesamten 
Wissensschatz zugreifen könnte. 

Das hochtechnisierte, handliche Dynabook 
sollte einen hochauflösenden Bildschirm ha- 
ben, Ein- und Ausgabegeräte, Möglichkeiten 
der Video- und Audiokommunikation und 
schließlich — über ein Netzwerk von Radiosa- 
telliten — Zugriff zu einer großen umfassenden 
Datenbank. Leider waren die technischen Pro- 
bleme der Miniaturisierung zu groß und die 
Geldsummen für die Verwirklichung dieser Vi- 
sion zu hoch. Das Dynabook-Forschungsteam 
wurde aufgelöst. Viele der Konzepte und 
Ideen hatten jedoch bleibenden Einfluß auf 
Forschung und Entwicklung und fanden 
schließlich Eingang in die Maschinen der 
modernsten Technologie. 


Dezentralisierte Rechner 


Eines der wichtigsten Konzepte entstand 
schon in einem frühen Stadium: die Idee des 
persönlichen Arbeitsgerätes. Bis dahin bedeu- 
tete Arbeit am Computer das Teilhaben an den 
Kapazitäten einer Maschine der Groß-EDV 
oder einer Reihe von Mini-Computern. Die Da- 
tenverarbeitung lief indirekt ab, wobei „Batch- 
Läufe“ der Normalfall waren. 

Der größte Unterschied zwischen dieser 
Umgebung und der PARC-Philosophie war die 
Umschlagzeit. Da es bei herkömmlichen Syste- 
men oft Stunden dauerte, bis Ergebnisse vorla- 
gen, war das Dynabook-Konzept mit seiner 
Forderung nach unmittelbaren Resultaten im 
Jahre 1972 revolutionär. Weiterhin bedeutete 
der Einsatz von mausähnlichen Eingabegerä- 
ten, Symbolen und Windows ein radikales Um- 
denken in der Datenübermittlung. In der Folge 
entstanden hochgradig flexible Grafikroutinen, 
die fest ins ROM der Hardware integriert wa- 
ren und eine seltsame Sprache, von den PARC- 
Mitarbeitern SMALLTALK genannt. 

Im Zentrum der SMALLTALK Forschung 
stand die Entwicklung eines umfassenden 
Hard- und Softwaremodells, dessen Grundlage 
die Kommunikation zwischen „Objekten“ mit 


bestimmten festgelegten Eigenschaften war. 

Bekanntlich enthält ein Computersystem 
verschiedene Funktionsmodule: Tastatur, Bild- 
schirm, Drucker, etc. Jede dieser Hardware- 
komponenten verfügt über genau festgelegte 
Fähigkeiten und kann nur bestimmte Aufga- 
ben erledigen. Jedes Objekt enthält weiterhin 
Daten (über seine Eigenschaften) und „weiß“, 
wie eine begrenzte Zahl von Abläufen ausge- 
führt wird. So „weiß“ der Bildschirm, wie er an 
ihn gesandte Daten anzeigen soll und kann 
den Cursor wieder an den linken Rand stellen, 
wenn der rechte Rand überschritten ist. 


Orientierung am Objekt 


Genau besehen ist ein Computer ein komple- 
xes, ineinander verwobenes Netzwerk aus 
Hard- und Software, das zum Teil aus Elektro- 
nik und zum Teil aus Softwaresteuerung be- 
steht. Ein Softwareingenieur, der jede Kompo- 
nente eines Computersystems als Objekt an- 
sieht und ihre Eigenschaften und Algorithmen 
exakt definiert, kann ein System aus einem 
Netzwerk miteinander kommunizierender Ob- 
jekte aufbauen. Statt mit der herkömmlichen 
Technik der strukturierten Programmierung 
eine Prozedur mit Namen aufzurufen, die dann 
(als Parameter übergebene) Daten verarbeitet, 
werden Programm-Objekte definiert, die nach 
bestimmten Klassen oder Kategorien aufge- 
teilt sind und Methoden zur Bearbeitung be- 
stimmter Datentypen besitzen. Die Datenargu- 
mente werden als „Meldung“ übergeben. 

In SMALLTALK wurde dieses objektorien- 
tierte Konzept zwar am konsequentesten 
durchgeführt, doch erfordert das System große 
Speicher- und Verarbeitungskapazitäten. Kürz- 
lich entstand — besonders in den USA — gro- 
Bes Interesse an MODULA-2. Die Sprache ist 
von PASCAL abgeleitet und wurde von Profes- 
sor Nikolaus Wirth entwickelt, dem Erfinder 
von PASCAL. Sie soll die Entwicklung großer 
Systeme erleichtern, bei denen Programmie- 
rerteams voneinander unabhängig aufeinan- 
der abgestimmte „Module“ (daher der Name) 
erstellen. Dabei sind Daten, Datentypen und 
Prozeduren in jedem Modul automatisch ge- 
trennt — es sei denn, sie werden speziell in an- 
dere Module „im- oder exportiert". Dieses Kon- 
zept entspricht der Idee von SMALLTALK, mit 
der Ausnahme, daß Meldungsübergabe und 
Datenargumente über PASCAL-ähnliche Pro- 
zeduren und Parameterlisten ablaufen. Mit die- 
ser sicheren und einfachen Methode lassen 
sich große Systeme zusammensetzen, ohne 
daß der ungehinderte Zugriff auf alle System- 
komponenten Probleme hervorrufen könnte. 

Obwohl es Maschinen wie den Macintosh 
erst seit kurzem gibt, setzen viele Anwender 
die Direktheit und Bedienerfreundlichkeit der 
WIMP-Systeme bereits als selbstverständlich 
voraus. Der Einfluß von SMALLTALK auf die 
Hardwareentwicklung war daher beträchtlich. 
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Soundcheck 


Unser MIDI-Schnittstellenprojekt geht in die zweite Bauphase. Wir 
wollen zeigen, wie die Funktion der kompletten Schaltung von BASIC 


aus geprüft werden kann. 


er ACIA-Baustein, das Herz unserer MIDI- 

Schnittstelle, ist mit den im Commodore 64 
bzw. Acorn B verwendeten Prozessoren 6502 
und 6510 kompatibel. Die Daten-, Adreß- und 
Steuerleitungen der Prozessoren können also 
direkt an den ACIA angeschlossen werden. 

Die fertige Platine ist so aufgebaut, daß sie 
sich in den Erweiterungsanschluß des Com- 
modore 64 stecken läßt. Die Acorn-B-Version 
wird dagegen mit 4Opoligem Flachkabel und 
passenden Steckern am Tube-Port des Rech- 
ners angeschlossen. Die dafür nötigen Arbei- 
ten werden wir für die beiden Computer ge- 
trennt erläutern. Nach dem Platinenaufbau soll 
die Schaltung geprüft werden. 

Wenn Geräte am Datenbus angeschlossen 
sind, die weniger Adreßleitungen als die CPU 
selbst besitzen, muß zum Ansprechen dieser 
Peripheriebausteine eine Adreßdecodierung 
vorgenommen werden. Daher haben solche 
Geräte einen „Chip Select" (Chipwahl) An- 
schluß, mit dem das Gerät auf den Datenbus 
geschaltet wird. Die CPU kann dann über die 
vorhandenen Adreßleitungen auf die Register 
des Gerätes zugreifen. 

Die „Chip Select“-Signale für verschiedene 
Peripheriegeräte werden durch Decodierung 
der oberen Adreßleitungen erzeugt. Die ein- 
zelnen Bitkombinationen auf diesen Leitungen 
erlauben es, mehrere Peripheriegeräte ge- 
trennt anzusprechen. Die internen Register der 
einzelnen Geräte erscheinen damit in der Me- 
mory-Map der CPU und können dann wie re- 
guläre Speicherplätze des Computers bear- 
beitet werden. Allerdings ist dabei Vorsicht nö- 
tig — verwendete Adressen dürfen keine Spei- 
cherplätze belegen, die vom Betriebssystem 
des Computers gebraucht werden. 

Der Erweiterungsport des Commodore 64 
verfügt über zwei mit I/Ol und 1/02 bezeich- 
nete Ausgänge, die beim Ansprechen der 
Speicherpages $DE bzw. $DF auf Low gehen. 
Wenn der CS2-Anschluß des ACIA-Chips nun 
mit /Ol verbunden ist, können wir damit den 
ACIA in Page $DE einbinden. Die Adreßleitun- 
gen Al bis A7 sind nicht angeschlossen, also 
kann auf die internen Register des Chips mit 
jeder Adresse im Bereich zwischen $DEO0 und 
SDEFF zugegriffen werden. Durch den direk- 
ten Anschluß von AO am Register-Wahlan- 
schluß des ACIA (RSEL) erreichen alle gera- 
den Adressen die Sende/Empfangsdatenregi- 
ster. Die Adressen $DEO00 und SDEOl bieten 


sich für diesen Zweck geradezu an. 

Am Acorn B gibt es zwei verschiedene Ports 
für den Anschluß — über den Tube-Port kön- 
nen wir den Datenbus direkt mit 2 MHz an- 
sprechen. Für die Adressen $FEEO bis &FEFF 
hat der Acorn eine spezielle Decodierleitung 
NTUBE. Nachteilig ist dabei, daß der Acorn B 
beim Einschalten durch Lesen bestimmter 
Tube-Adressen prüft, ob irgend welche Peri- 
pherie vorhanden ist. Ist irgendetwas anderes 
als ein zweiter Prozessor angeschlossen, 
scheint der Acorn B „abzustürzen“. 


Den Rechner überlistet 


Professionell würde man dieses Problem da- 
durch umgehen, daß eine der oberen Adreß- 
leitungen mit CSO auf dem Chip verbunden 
würde. Als Alternative kann aber auch NTUBE 
mit CS2 verbunden und die Platine erst bei 
eingeschaltetem Rechner eingesetzt werden. 
Die mit NPGFC und NPGFD bezeichneten Pins 
dienen dazu, externe Geräte in die Seiten &FC 
und &FD zu „mappen“. Sie entsprechen den 
Commodore-64-Anschlüssen I/Ol und 1/02. 

Die Benutzung des 1MHz-Busses hat aller- 
dings auch Nachteile: Die Verlangsamung des 
Systemtaktes auf 1MHz führt zu Störungen auf 
den Decodier-Leitungen, die mit einer Hilfs- 
schaltung beseitigt werden müssen. Außer- 
dem gibt es am 1MHz-Bus keine 5-Volt-Versor- 
gung — man muß die 5 Volt am User Port oder 
der „AUX“-Stromversorgung abzweigen. 


Bit für Bit 


Falls Sie Ihr MIDI-Interface selbst proc ram 
mieren möchten, müssen Sie die Fur 
vier ACIA-Register kennen. 

Ein Sende-Interrupt tritt auf, wenn c 
trollregisterbit 6 gelöscht und Bit 5: 

_ TDR (Transmit Data Register)-Sta us 
sind. Durch Schreiben von Daten zum 
wird der Interrupt gelöscht. ij 

Ein Empfangs-Interrupt erfolgt, wenn Ko 
trollbit 7 und Statusbit 0 gesetzt sind. Lese 
des RDR (Receive Data Register) lösch | 
Interrupt (falls nicht auch Statusbit 5 gesetzt 
ist, be durch Eaepar a Status 


verschiedene Taktgeber vorgesehen, deim 


Empfangs/Sende-Datenregister: 


Register im ACIA Registerwahl — 1 


Empfangs — Leseregister 


; } Senden — in Register schreiben 
'Statusregister (nur lesen) Registerwahl = 0 


Empfangs-Datenregister voll 


Sende-Datenregister leer 
Daten werden empfangen 
Sendebereit (CTS) 
Start/Stopbitfehler 
Empfänger-Überlauf 
Paritätsfehler (*) 
Interrupt-Anforderung 


Kontroll-Register (nur schreiben) Registerwahl = 0 


Wahl der Teilungsrate 
(Taktzyklen) 


00 Teilen durch 1 (*) 
01 Teilen durch 16 (*) 
10 Teilen durch 64 

ll Reset 


Wahl des Datenformats 


Daten- Stop- 

bits bits Parität 
000 gerade (*) 
001 ungerade (*) 
010 gerade (*) 
ol ungerade (*) 
100 keine (*) 
101 keine 
110 gerade (*) 
111 ungerade (*) 


Interruptsteuerung senden 
00 ausgeschaltet (*) 

01 eingeschaltet 

10 ausgeschaltet (*) 

11 ausgeschaltet (*) 


Interruptsteuerung empfangen 
0 ausgeschaltet 
l eingeschaltet 


(*) = im MIDI-Projekt nicht einsetzbar 


d ob die Parität gerade oder 
: wird direkt aus dem übergangen wird. Im MIDI-Sta üsseı 
Takteingang t oder durch Teilung durch Bit 2und 4 gesetzt und Bit 3 gelöscht sein 
Er oder 64, je nach Werten der Kontrollbits 0 (acht Datenbits, keine Parität, ein ia Bit 5 
und l, vermindert. und 6 im Kontrollregister bestimmen die Über- 
Bit 2, 3und 4 des Ko trollregisters bestim- tragungsart. Bei MIDI muß Bit 6 gelöscht sein, 
ib an Anzahl der Stop- und Datenbits und Bit 5 erzeugt dann die Sende-Interrupts. ln 
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Commodore 64 Kontakt- 
belegung 
der Platine 


Diese Abbildung zeigt, 
welche Pins am ACIA-IC 
mit welchen Anschlüssen 
an einem der beiden 
Computer verbunden 
werden müssen. Die Lei- 
tungen an den Kontakt- 
streifen sind mit Num- 
el oohlallatkikl khbFh ollo dl c u” mern versehen, die den 
Bauteilseite old lo} bi pl pi bI» ao FL Nummern der IC-An- 
LU o o schlüsse entsprechen. 
—_H - Welche Zahl zu welchem 
yagzeren BB 7 ® Beinchen gehört, finden 
- Sie so heraus: Halten Sie 
das IC mit der Markie- 
rung nach oben und den 
Leiterbahn- | . ] ö RR Anschlüssen von sich 
seite IK: fort. Anschluß 1 liegt 
“we RE nt ne ap ‚une Seite 
Mr neben der Chip-Markie- 
HE HE HE A a a a m m m a [rail Auf der Bauteilseite mit N1n9, Von Mori werden 
oo DER 0 aa 0000 : Masse (0 Volt) verbinden INS 12 numenlert Din 
oo 000000 o . h A 
000000000000000 f Yo 13 liegt auf der rechten 
Seite Pin 12 gegenüber. 
Von Pin 13 zählen Sie 
wieder aufwärts bis 24, 
dem Anschluß rechts ne- 
ben der Markierung. 

Für die Verbindungen 
wird Wire-wrap-Litze 
verwendet. Ist alles fertig 
aufgebaut, können Sie 
die Commodore-Version 
der Platine mit der Bau- 
teilseite nach oben in 
den Erweiterungsan- 
schluß des Rechners 


®) 


Ä stecken und mit dem 
Testprogramm prüfen. 
Für die Acorn-Version 
B muß zuerst ein Verbin- 
eioJeielolejejejojipejene,e dungskabel aus einem 


Meter 40poligem Flach- 
kabel mit einem 40poli- 
gen Pfostenfeldstecker 
und einem 2 X 20poligen 
Platinenstecker aufge- 
baut werden. 


3 Ill 


000000000 
o90000006 
o0o0o000000 
000000000 
000000000 
000600000 


öbE 
VETRALZUN (52 IRQ U 18. 
An 9 714 RW 


Leiterbahn- 
seite 


000000000000 
0000000900000 
000000000000h 

h j 
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ACIA-Platinentest 


Wenn die Platine richtig angeschlossen ist, 
können wir die Schaltung auf ihre Funktion 
prüfen. Sollte die Platine ihren Dienst versa- 
gen, müssen Sie mit einem Multimeter oder 
auch durch genaue Inspektion nach Verdrah- 
tungsfehlern suchen. 


1. Falls der Computer bei angeschlossener 
Platine nicht normal arbeitet: 

@ Testen, ob die Spannung zwischen Masse- 
leitung und +5-Volt-Leitung wirklich 5 Volt 
beträgt. Platine nach fehlerhaften Verbindun- 
gen zwischen einzelnen Leiterbahnen aufs 
genaueste absuchen. 

@ Platine vom Computer trennen und mit 
dem Multimeter auf Kurzschlüsse zwischen 
den Bus-Anschlüssen prüfen. 


2. Wenn der Rechner normal arbeitet, die 
MIDI IN und die MIDI OUT Buchsen mit 
einem Spoligen DIN-Kabel (Hifi-Anlage) ver- 
binden und die folgenden Befehle eingeben 
(Acorn Bin eckigen Klammern): 

POKE 56832,3 [?&FEEO=3] 


Dieser Befehl schreibt eine 3in das ACIA- 
Kontrollregister und erzeugt damit einen Re- 
set. Als nächstes eingeben: 

POKE 56832,22 [?&FEEO—=&16] 


Damit wird der Wert $16 in das Kontrollregi- 
ster geschrieben, was den ACIA folgender- 
maßen konfiguriert: 


@© Empfangs- und Sendeinterrupts abgeschal- 
tet (wir können sie zu diesem Zeitpunkt noch 
nicht weiterverarbeiten). 


@ Format für Empfangs- und Sendedaten: 
Acht Bit plus ein Stopbit ohne Parität und Pa- 
ritätsprüfung. 


® Baudrate auf Taktzyklus an Pin 3 und 4, ge- 
teilt durch 64. (2MHz/64= 31,25 KHz, die für 
MIDI festgelegte Übertragungsrate). 


Flachband-Anschluß 


Die MIDI-Schnittstellenplatine kann am Acorn 
B mit einem 40poligen Flachbandkabel, einem 
40poligen Platinenstecker und einem 40poligen 
Pfostenfeldverbinder angeschlossen werden. 
Der Pfostenfeldverbinder paßt direkt in den 
Tube-Port auf der Unterseite des Acorm B. Bei 
der Montage ist genau auf die Orientierung 
der Stecker zu achten. Legen Sie dazu das Ka- 
bel flach aus und montieren Sie den Platinen- 
stecker so, daß Pin 1 (am Gehäuse markiert) 
unten liegt. Die Oberseite des Steckergehäu- 
ses beschriften, damit es nicht falsch einge- 
setzt wird. Der Pfostenfeldverbinder wird am 
anderen Ende des Kabels mit dem rechtecki- 
gen Vorsprung nach oben montiert. 


Tips für die 


Der ACIA sollte jetzt sende- und empfangs- 
bereit sein. Prüfen Sie das durch Auslesen 
des Statusregisters mit: 

PRINT PEEK (56832) [PRINT?&FEEO] 


Dabei sollte der Wert 2 angezeigt werden. 
Das bedeutet, Sende-Datenregister (Bit 1 ge- 
setzt) und Empfangs-Datenregister (Bit 2 ge- 
löscht) sind beide leer. Da noch keine Daten 
empfangen wurden und Interrupts abge- 
schaltet sind, sollten die restlichen Statusbits 
2 bis 7 gelöscht sein. 


3. Nun wird ein Byte vom Senderegister 

durch das Verbindungskabel zum Empfangs- 
register geschickt: 

POKE 56833,X [?&FEE1=X] 

wobei X eine Zahl zwischen 0 und 288 ist. Der- 
Wert gelangt ins Senderegister. 


4. Bis zum Eintippen des nächsten Befehls 
sollte das Byte empfangen worden sein. Also 
das Statusregister wieder auslesen: 

PRINT PEEK (56832) [PRINT?&FEEO] 


Diesmal sollte 3 angezeigt werden. Bit 1 
wurde sofort nach dem letzten Befehl ge- 
löscht (Senderegister voll), kurz danach aber 
wieder gesetzt, um anzuzeigen, daß das Sen- 
deregister frei für das nächste Byte ist. Bit 0 
wurde gesetzt und gibt an, daß das Byte 
empfangen wurde und aus dem Datenregi- 
ster gelesen werden kann. Einen möglichen 
Fehler gibt es dabei: Falls Bit 0 nicht gesetzt 
ist, gibt es wahrscheinlich eine offene Lei- 
tung im Übertragungsweg, die den Emp- 
fangseingang auf hohem Potential hält. 


5. Wenn der Empfang eines Byte gesichert 
ist, können Sie durch Auslesen des Datenre- 
gisters prüfen, ob der gesendete Wert kor- 
rekt angekommen ist: 

PRINT PEEK (56833) [PRINT?&FE1) 

Dieser Befehl sollte zur Anzeige des vorher 
von Ihnen eingegebenen X-Wertes führen. 
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Die Neue 
Welt 1 


In den letzten Artikeln unseres 
Programmprojekts zeigen wir die 
Programm-Versionen für den 
Spectrum, Acorn B und Schneider 
CPC. Zunächst stellen wir die 
Spectrum-Version vor. 


as Programm wurde auf einem Commo- 
dore 64 geschrieben. Die Probleme bei 

der Anpassung an den Spectrum liegen in 
zwei Hauptbereichen: Erstens gestattet der 
Spectrum nur Variablennamen für Arrays oder 
FOR. . .NEXT-Schleifen, die aus einem Buch- 
staben bestehen; daher haben wir eine Um- 
wandlungstabelle erstellt. Zweitens ist das 
String-Handling beim Spectrum anders, das 
heißt, LEFTS, RIGHTS und MIDS sind nicht ver- 
fügbar, obwohl jeweils entsprechende Äquiva- 
lente vorhanden sind. Spectrum-Besitzer soll- 
ten daher die bei jedem Modul angegebenen 
Besonderheiten beachten. Zusätzlich sollte 
PRINT CHRS(147) durch CLS ersetzt werden, 
und Routinen, die auf Tastendruck warten, wie 

<Zeilennr.> GET I$: IF I$="" THEN 

<Zeilennr. > 
sollten gegen 

<Zeilennr.> LET I$—= INKEY$: IF I|$="" 

THEN GO TO<Zeilennr. > 
ausgetauscht werden. 


Umwandlungstabelle für 
Spectrum-Variablen 


Microsoft 
Äquivalent Zweck Spec: 


TS(,) Mannschaftstyp/-stärke (TG) 
WG() Wochenlöhne WO 
[016/6) Mannschaftstypen-Zähler Yo 
PA() erhaltene Vorräte A() 
PC() Vorrats-Preise [0/6] 
PN() benötigte Vorräte NO 
OC() Preise für Handelswaren oO) 
OA() Menge an Handelswaren G() 
HR() Flag für halbe Rationen H() 
RR() Flag für Ereignisse RO 
AO() Menge gehandelter Waren E() 
EQ(,) Tauschwerte [0/®) 
VIO Werte bei der Abfahrt B() 
V2() Werte bei der Rückkehr D() 
sl Zähler für Stärkereduzierung S 

S3 Zähler für Bildschirmausgabe S 

54 Zähler für kurze Verzögerung ]J 

S5 Zähler für lange Verzögerung S 


FEM ##raux0r RR * 
REM ** NEL LIORLD #** 
REM #»#* TRADING #** 
*=* GAME ** 
BEN “urn 


Dinkune 
“mm 

m 

& 


Der erste Abschnitt des Program: 
riablen und Arrays. 


7 Kt=" FRESS ANY KEY TO CONTINUE" 

1a DIM TS{15.25: REM CREW TYPE/STRENSTH 

EM NO. OF CREL 

a: REM START MÜNEY 

SP’ WG ISLA: GE 2I=2I:WGCHI = IS: WEL ISO EIG 
REM WAGES 

H BEI WEEKLY WAGE BILL 

REu 
I="SAILOR" :C$i 2I="DOCTOR" Ce I="M 


ECHANIO 
17 Ct) ="NAUIGÄATOR" :C$CSI=" COOK" 

13 DIMCC<SI: REM COUNT OF EACH CREU TYPE 

za DIMUSC4I :USCL)="KILO" EC ZI="KILO" :UECHI =" KILO" 
:U&(C4)="BÄARREL" 

21 DIMP&C4) :P$C1)="VEG" :P$eZI="FRUIT" :FECHI="MEAT" 
ıFP$(4)="WATER" 

DIMFA(4) 

DIMPC(4) :PCC1)=.5:PC(293=1 : PCC H=2:PCl9)=.5 

24 DIMPNÜ 43 :PNC1>=2:PN(ZI=1 :PNL3I=1:PNGEA)I=.5 

36 DIMOA(S) 

31 DIMO 
2 O$<i1)="BOTTLE OF MEDICINE" :O$CZ3="GUN" :O$CH="B 
OF SALT" 

O$(4)="BALE OF CLOTH" :08C5)="KNIFE" :OFCS)=" JEWEL" 


1 
REM LENGSTH OF VOrAGE 
REM EXTRA WEEKS 
42 DIMRR«(1S5 
43 REM INDICATORS TO SHOW IF RANDÜM EVENTN) ALFEA 
DY OCCURED 
44 Rc=4 
45 REM COUNT OF RANDOM EVENTS SO FAR 
4% RM=13 
47 G$="N":REM GOOD WEATHER INDICATÜR FOR USE IN MU 
TINY FACTOR 
48 Ag="N" :BE="N" 
47 DIMM{S>:REM INDS TO SHOW IF MAJOR EVENTS HAVE E 
EEN DÜNE 
ee DIMT£(39 :T$(1?="PEÄRLS" :T#Ü2)="CARVINGS":TEIH) = 
"SPIGES" 
#1 DIMYLC3I VL CHISZ2:V I ( ZDIeZ VL CHI 
62 DIMV2C3I :VZC1d)=Z+CINTERNDEL IL I ZI UV Z2CZI=2+HCINT 
ERND<12%3)-1) 
& »=2+ INTERNDELD#1I/2) 


nina on 
NR 
Um 


Pa Go ın = 


DIMAD« 35 
8 FRINTCHR$(1473:5$=" NEW WORLD TRADING GAME*":6 
Eriäß: PRINT 


LE? 
32 5t="YOll ARE THE CAFTAIN OF A SHIF*" :60SUBF1OR: 
PRINT 
33 5$="SAILING TO THE NER WÖRLD. THE*#":60SUBF1AG:F 
RINT 
S4 5$="JOURNEY 15 SAID TO TAKE EIGHT#":50SUBFIAR:F 


55 5$="WEEKS,BUT MAY TAKE LÜNGER. YüOl«":GOSUEFLAM: 


3& S#="MUST HIRE A CREL,FAY THEM, BUY#":G0SUBF1AR: 


37 5#="FROVISIONS, EBUIPMENT AND G00DS*#":50SUEFIAM: 
35 St="FÜR TRADING. YO HAVE Zuaa GOLb#":G0SUBrLER 


37 5$="FIECES TO SFEND.*":50SUBF1AA:FRINT:GOSUBFZA 


76 PRINT: m 500Db LUCK!*#":50SUBEF1AA:GOSUE 
7288: PRIN 
71 S$=K$:50SUEFL AR 

74 GETI$:IFI$=""THEN?FA 
75 GOSLUBFZAH 


Dieser Abschnitt ruft die Unterroutinen auf, die dem 
Spieler das Anheuern einer Mannschaft, den Einkauf 
von Vorräten und Handelsgütern ermöglichen. 


5107) 
":G0SUBFLRKB 


"You HAVE THE FOLLOWING CREW:*":GOSUE 


548 GOSUBFZUB : 1028 PRINT:PRINT"CREU TYFES AUAILABLE:" 
645 FORT=1T0S 1925 GOSLUBF268 

658 IFCCETI=BTHENG?O 1438 PRINT 

455 PRINTCCCTI: 1848 FRINT"TYPE DESCRIFTION WAGES PER WEEK" 
$68 PRINTLE(TI: 1858 PRINT" ---- == - 


Se2 ULF T)=1THENPRINT" ":G60T0858 10854 PRINT" 1 SAILOR 1a GOLD 
564 FRINT"S" 176 FRINT" 2 DOLTOR 25 GOLD 
543 GOSUBFZAH 1436 PRINT" 3 MECHANIT 15 GOLD 
574 NEXT 1874 PRINT" 4 NAUITGATOR Zu GOLD 
#74 GOSUBFZUR 1188 PRINT" 5 OK 15 GOLD 
875 PRINT: "AND THE FÜLLOWING FROVISIONS:#":505U 1145 5GOSUBFZAR 

EriaB 1118 PRINT:FRINT:PRINT 


SER GOSLUBFZER 11280 S& NTER CREU TYPE REQUIRED!1-5)* suBr1an 
555 FORT=1TU4 1122 5$="üR °F“ TO FINISH HIRING*":6 Ga:FRIMT 
sr6 IFFALTI=BTHEN?LO : INFUTIE 

875 PRINTPALTISUSCTI:E"S OF "; 1125 CT=WAL(l$) 

764 FRINTF$(T) 1128 IFLEFT$ÜI$.1)="F"THENFRINT:FRINT"END OF CREW 
748 GÜSLUBFTZAR HIRE." :50SUBF268:50T01 31% 

718 NEXT 1134 IFCT>BANDET <STHENI 158 

715 GOSUBFZAR 1137 PRINT:PRINT 

?26 PRINT:S$="Yüll HAVE ALSO GOT:*":GOSUBFIAR 1148 PRINTI$::5$=" IS NOT A CREW TYPE#": 

725 GOSUBFZURB 1142 UBF2 


734 IFOAUL)=BTHEN?4B 1195 5 "PLEASE ENTER AGAIN" 
733 IROAC1)=1THENS$="BOTTLE OF MEDICINE #":6070735 1146 GOSUBFIAB 
734 S$="BOTTLES OF MEDICINE*" 1147 GOT01388 


PRINT:PRINT 

CN=EN+1:REM CREW HIRED 50 FAR 

» TSCCN,I)=SAT:REM TREU TYPE 
TS{CN,Z2)=186:REM STARTING STRENSTH 
WT=WT+WGECT)I REM TOTAL WAGES 


735 PRINTOA{1>::GOSUBF1AH 

7368 GOSUEFZAR 

744 IFOAiZ)=6THEN?SE 

743 IFOAC2)=1THENSE=" GUN" : 5070795 
744 5$="GLNS#" 


?45 PRINTOA(ZI ::GÜSUEFIEM ?° CCiCT)= ECT)+L:REM CREW TYFE COUNT 

748 GOSUBFZAR REW SO FAR:" 

758 =ATHEN?: FORT=1T0S 

753 =1THENS$="BAG OF SALT#" :G60T0755 11868 PRINTS$; 

754 S$="BAGS OF SALTK" 1185 IFCCCTI SLÜRCCETI=BTHENPRINT"S" :50T0118F 


755 PRINTOA(3) ;:50SUBY10B8 ERINT“ A 
758 GOSUBFZAR 
786 IFOAC4>=BTHEN??E 


763 IFOACII=S1THENSF="EALE OF CLOTH&" 


1175 PRINT: FPRINT"TOTAL WEEKLY WAGE BILL "zLT 


744 S$="BALES OF ODLOTH«" 1286 IFCN=OM-1THENPRINT:S$="ONLY ONE MÜRE CREW*«" 6 
7&5 FRINTOA(4::GOSUBEFIAM ÖSUBFrLOH T01295 

785 GÜSUBFZUM 1282 IFÜN=CMTHENPRINT :® " SHIP NOW FULL!!": 
778 IFOALSI=BTHEN?SE UEF1EB:GOTO1S1E 

773 I1FOA(S5>=1 THENSE="KNIFE*" :G0T0775 1275 REM 

774 5$="KNIVES*" 1386 GOTO1815 

PRO 3 air 1318 FRINT: S$t=Kk#:il GOSUBFZEH 
778 GÜSUBFZUH 1320 GETI$:IFI$=""THENI32 

784 TFORCSI=BTHEN?98 1777 RETURN 

783 DL EENENEEE zu46 PRINTCHR&(147) 

784 S$=" JEWELS*" 2018 S$=" STAGE 2 - FROVISIONING*" 

785 en :: 5OSUEFLAR 2815 GÜSUBFIBR 

785 GOSUBFZEH 2028 SS! ------- 70------- *" 

ra GÜSLUBFZAH 2425 GOSUBFLAR 

?F2 PRINT:PRINT"YOU HAVE ":MO;" GOLD FIECES LEFT" 2634 GOSUEFZBR:PRINT 

77% GÜSUBFZAH 2648 PRINT"YOU’UE HIRED A CREW OF "3CN:"." 


797 S$="PRESS ANY KEY TO START VOYABE*" 2845 GOSLBFZAA :GÜSUBFZRH 

778 GOSUBYF1LEB 2456 FORT=1TO4 

779 GETI$:IF 1$=""THEN?FF 2655 PRINT 

586 WT=8# :REM ZEROISE WAGE TOTAL 2648 FRINT"EACH CREW MEMBER WILL NEED " 
381 H#="N" :REM HALF RATION INDICATÖR 2078 PRINT"AT LEAST ":PN(T> 


=1:HR(4)=1 2675 IFPNCT)=ITHENPRINT" "3 
26888 PRINT"S"; 
85 PRINT" OF ";P$<T) 
84 PRINT"AT ";PC<T);" GOLD PCS PER ";U8(T) 
78 FRINT"FÜOR EACH WEEK OF THE JOURNEY." 
+5 S0SUBFZAR:PRINT:GOSUBFZAR 
a8 FRINT"HOW MANY "SUECT) gr "SPReTI 
18 St="DO YOU WANT TO BUY#":5OSUBFLUM 
26 PRINT 
364 INPUTI$ 
48 PACTI=VAL{I#) :5OSUEFZER 
2158 IFPACT)I>CCCN=S=PNCTII-1> THENZZSG 


382 DIMHR(4) :HRCLD=1 :HRCZI=1 HRG 3 


Hier beginnt die Hauptschleife für die Fahrt. Die 


Wochen werden mit WK gezählt. 
324 
325 B4uaB: REM CREW STATUS REFÜRT 
334 GOSUB4ZAA:REM PRÜVISIONS REPORT 
335 GOSUB43AA:REM OTHER GO0DS REFÜRT 
346 GÜSUB?F288 :PRINTCHR&(147) 

342 FRINT:FRINT:FRINT 
343 S$="IT 15 ESTIMATED THAT THE VOYAGER" :G0SUB71H8 


Vo ro N NIN IND DI NV 
ae so so 


N 


344 PRINT"WILL TAKE A FURTHER" GINTCIL-WK+LIG"WEERS" 21°% IFPACTISBTHENFRINT"IF YOU DON’T BUN ANY" :GOTO 
845 GOSUB a 218# 

84& PRINT :S#$=K$:G05UBF1 Ad 2178 PRINT"IF YOu ONLY BUY " P 

397 GETI$&:IFI$=""THENSA? 2175 IFPACTI=1THENPRINT" OF 


2176 PRINT"S OF" 
PRINTPS$S{T>;" „" :G0OSUBFZUH 


8594 GÜSUBS@AA:REM CHE 


WAGE BILL 


IN 


V 


855 IBS180: REM ISSUE RATIONS ae 
339 GOSUBSSAA 2198 PRINT"SOMEONE MIGHT GET ": 
361 REM 60 TO GENERATE RANDOM EVENTS 2208 S$="HUNGRY" 
370 GOSUBSSAA:REM GOTO MAJOR CONTINGENCY < IFT=4THENSE="THIRSTY" 
375 IFHRC3)=.SANDRND« 1). STHENFRINTCHRE(147):50SUB © PRINTS$;"!" :G0SUB7288 
5358 2230 S$= "DO YOU WANT TO TRY ABAIN" :SOSUEFIAN 
378 REM ALEATROSS IF SHORT OF MEAT 2246 INPUTPS:P$=LEFTE(P&,1) 
377 GOSUB7ZAU 2242 IFP&<>"Y"ANDPS<>"N" THENZ230 
386 GOSUE 5304: REM END-OF-WEEK REPORT 2245 IFP$="N"THEN2488 
389 LIK=WK+1 : TFLWK<=JLTHENSZS 2258 PACT)=8:T=T-1:60702410 
378 REM ARRIWAL AT NEWWORLD 2258 IFPACT)=PCET) >MOTHENZ270 
351 2265 60702488 
392 2278 S$="YOL DON’T HAVE ENDLUGH MONEY FÜR" :GOSUBFIE R 
893 2288 PRINTFA(T)> 
374 GOSUB1H588 2278 PRINTU$S(CT):"S OF ":P$CT):6 
977 END 2249 S$="PLEASE TRY ABAIN*" :650SU 8:T=T- 
" . G0T02418 
: 2488 MO=MD-(PACTI=PECTI> 
a auptprogramm. Der Rest des Pro- 415 PRINT:St="PROUISIONS :GOSUBFLAR 
s Unterroutinen, die vom Haupt- zaız susueszan 
n werden. 2415 FORTT=1T04 
— - 2424 PRINTFACTTI:USCTTD: 

aan PRINTCHRSC 147) :PRINT" STAGE 1 - HIRING CREW" 24364 IFPAUTTI=ITHENFRINT" OF "::60702446 
1818: PRINT" ---------------------- “ 2435 PRINT"S OF *; 
1812 PRINT 2448 FRINTPS(TT) 
1915 GUSUBF20 2458 GOSUBFZaR 


1927 


NEXT 4215 S$="PROVISIONS LEFT:*":G0SUBF108 
PRINT"MONEY LEFT = ":MO;" GOLD PIECES" 4226 PRINT:GOSLB?288 
GOSUBFZU8 : 5GOSUBF2BA 4225 FORT=1T04 
T 4228 IFPACT)=BORPACTI=-FFFTHENA244 
SOSUBFZAL:FRINT:SE="END OF FROVISIONING«" :608 4238 FRINTPACTIHUSCTIH"S OF "rP&CT) 
198: 50SUBFZAB 4232 X=PACTI/CCN#PNETI) 
FRINT =K£:50SUEF1AA:PRINT: SOSLUBF2 42235 PRINT" CENOLGH FOR" ;INTEXD:" WEERSS" 
THENZS28 4237 G0SUB?284 
4248 NEXT 
REM STAGE 3 4278 PRINT :S5$=K$:G605UB7198 
4275 GETI$:IFI$=""THENd2FS 
STAGE 3 - OTHER 560005" 4277 RETURN 
4398 REM OTHER 60008 REPORT 
4365 PRINTCHR&(147) 
4388 PRINT"AT THE START OF WEEK" zWK:GOSUBFZAR 
"THERE ARE ÜTHER THINGS THAT MAar=#":5 = 4310 S$="YOU ALSO HAVE:#":GOSUBFLAA 
"BE USEFUL ON THE “OVYAßGE, FÜR [ i FRINT :G0SUEBFZBA 
"EXAMPLE MEDICINE AND TRADING + St: IFORC1)=BTHENA332 
UIBF2AHA FRINTOAU1IG:S "BOTTLES OF MEDICINE#":60SUEFIAA 
ou MAY ALSO NEED WERAP! & SOSUBF29A 
GOSLUIBFZAR :GOSUBF2AH : IFOA(C2ZI=ATHENA342 
FORT=1T08 FRINTOR(2) 4 :5%="GUNS#" :GOSUBFIBR 
PRINT GOSUBFZAH 
PRINT"A "r0$(Td; IFOAC3)=BTHEN43S2 
S$=" COSTS=":G05UBF188 345 PRINTOA(3)::5*="BAGS OF SALT=":GOSUBFLER 
PRINTOCETIG 356 GOSUB?ZAA 
FRINT" GOLD PIECE"; 352 IFOAC4)3=BTHENA3S2 
IFOCCTI=1THENFRINT" ":60T038F8 £ FRINTOA(4>::5%="BALES OF CLOTH*" :50SUBF100 
PRINT"S" s4 GOSUBPZARA 
SOSUBFZAR 362 IFOACSI=ATHENA372 
"WOLILD YOL LIKE TO BUY <Y OR ND*":50SUBFLAH 55 PRINTOA(CSI ;:S$="KNIVES*" :50SUBFLOA 
INFUTP£:P$=LEFT(P$,1) 76 GOSUBF2A8 
IFP&<>"Y"ANDPS<> "N" THEN3RFS \ IFOA(6>=8THENA338 
IFF$="N" THEN2175 ’5 PRINTOA(&)I ::5$=" JEWELS#" :GOSUBF1BR 
LIBEFZÄR GOSUBF286 : PRINT 
"Hol MANY DO You WANT#" 05 J - PRINT" YOU HAVE" MO: :S$=" GOLD FIECES LEFT*":6 
INPUTI& 05UB7188 
TT=VAL(Is) 4384 G0SUBF288 
4377 PRINT:S$=K$:G605UB71 08 
4398 GETI$: IFI$=""THENA398 
="Yoll DON’T HAVE ENOLGH MÜNEY*":G0OSUBFIR 4399 RETURN 
GSÜSUBFZAH Sbaa REM CHECK WAGE BILL 
="PLEASE ENTER AGAIN *" :60SUBF18R 5885 IFWT>MOTHENS®1H 
GOSUEFZAH :GOTO2138 5008 G0T05897 
MO=MO-COCCTI#TT) 5818 FRINTCHR&(147) 
DAKT) 5428 FRINT:FRINT:PRINT 
SOSUBF 5925 S$="THE CREW HAVE HEARD A RUMOUR*" :GOSUBFLER 
PRINT 5938 S$="THAT YOU DON’T HAVE ENOUGH*" :GOSUBFLRAA 
PRINT"MÜNEY LEFT = ":MüO 5935 S$="GOLD TO PAY THEM AT THE END*" :G0SUBF1A8 
SUBFZAR :NEXT T 5448 S$="OF THE VOYAGE.*":G0SUBF1H8 
IE?288 : PRINT :PRINT 5845 GOSUB7298 :PRINT 
END UF STAGE 3#" :G0SUBFIER 5958 S$="THEY ARE GETTING ANGRY !!*":60SUEF1AA 
IEFZBR :FRINT Ssa55 G0OSUBF288:PRINT 
S$=K$ UEFIBH 50408 S#="LET’S HOPE YOU MANAGE TO MAKE*" :GOSUBF1AH 
GETIt:IFI$=""THEN3248 5955 S$="A TRADING PROFIT!*":G0SUB7168 
RETURN 5656 GOSUBFZ2AR 
5878 PRINT:S$=K$:G05UBF188 
5888 GETI#:IFI$=""THENSASA 


H i H “R 587? RETURN 
Die folgenden Unterroutinen analysieren den aktu STORTREH RSS: RATTONS 


ellen Status von Schiff und Mannschaft und geben 5193 PRINTCHREC147) 
einen Wochenbericht. 5195 S$=" 1SSUING RATIONS*" :GOSUBFLAR 
5196 S$ *" :GOSUBFLAR 
5187 GOSUBFZ298 :PRINT"WEEK" zWK:PRINT 
4666 REM CREW STATUS REPORT 5108 H$='N" 
4516 PRINTCHR&(147) 5118 FORT=1TO4 
4020 St= CAPTAINS LOG" :GOSUBFLEB 5112 HR<TI=1L 
4825 :6 7168 5115 IFPACT)>BTHENS1SB 
GOSUBFZEH 5128 PRINT"NO ";P$CT);" LEFT!!!":50SUBF208 
PRINT"AT THE START OF WEEK" zlK 5138 S$="THE CREW IS GETTING WEAKER !'*":50SUBFLAH 
S$="THE STATE OF THE CREW 18:*" :50SUBF108 5135 WF=18:50SUB?308 
GOSUBFZAR:PRINT 5137 G0TOS2FA 
PRINT 5138 X=CPNCTI#END*CIL-WK+1) 
FORT=1TOLS 5185 IFPACT)<XTHENS288 
IFTSCT,ID=SBTHENA1 10 5176 G0T05278 
PRINTCSCTSCT,IDDG gu 5288 PRINT"RUNNING SHORT OF ";P&<T) 
$="DEAD !!!!!!!)%":G0OT04897 9 5285 GOSUB?ZAH 
$="LIERY HEALTHY)I*" :G0T04879 5218 S$="DO YOU WANT TO PUT THE CREW ON*":GOSLBFLEH 
ATHENSE="HEALTHYD#": 077 5215 PRINT"HALF RATIONS OF ";P$(T) 
STHENSt="SICK » ; 2 5228 INPUTI$:I$=LEFT$(CI$,1) 
{ ARE 5221 IFI$ "ANDIE<>"N"THENS2ZU 
SOSUBFLAR SUEFZAR 5225 IFI$="N"THENS278 
NEXT 5238 HR(TI=.S:H$="Y" 
GOSUBFZAR:PRINT 5248 WF=5:G605UB?394 
WlI= 5250 S$="THE CREW IS GETTING WEAKER!*":G0SUBFLAR 
FÜORT=1T0S 5278 X=PNCT)=HRETI*CN 
ETI#WGET)) 272 IFX>PACTITHENX=PACTI 
5275 PACTI=PALTI-X 
"WAGE BILL FÜR THE WEEK*":GOSUBF1AA 5238 IFPACTI=BTHENPALTI=-FFF 
GOLD PIECES" 5285 PRINTXUSCT)E"S OF "zP&CT);" ISSUED" 
5274 PRINT:GOSUBF298 :NEXT 
5295 PRINT:3$=K$:G50SUBF10R 
s ; FOR VOYAGE SO FAR:#":60SUBFLAH 5298 GETI$: IFI$=""THENS2F8 
FRINTUT "GOLD PIECES" 5277 RETURN 
GÜSUBFZAR 
PRINT"MONEY LEFT = ":MÜ: "GOLD PIECES" 
PRINT :5€=K$: 50587108 
GETI$:IFI$=""THENA1F0 
RETURN 
REM FROUISIONS REPORT 
PRINTCHR&(147) 
FRINT"AT THE START OF WEEK 
S$="YOlI HAUE THE FÜLLOWING* 
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Grafik mit Dreh 


Im ersten Artikel über die dreidimensionale Grafik des Commodore 64 
hatten wir einen Teil des Grafikprogramms in Maschinensprache 
übertragen. Wir übersetzen nun den Rest des BASIC-Listings und 
stellen weitere Fließkommaroutinen vor. 


ie Programmkombination Test I-Rot und 

I-Rot-Hex läuft schon recht schnell, wird 
aber durch das Abfragen der Matrix E%(L]J) 
stark verlangsamt. Die Matrix legt fest, welche 
Punkte der Figur miteinander verbunden sind 
und gibt uns damit die Information, welche Li- 
nien gezeichnet werden sollen. Um höhere 
Ausführungsgeschwindigkeiten zu erreichen, 
müssen wir daher auch den Rest des BASIC- 
Programms in Maschinencode übersetzen. 

Für die mathematischen Berechnungen in 
den Zeilen 1640 und 1650 

X1%=X(l)+159:Y1%=199—(Z()+100) 

X2%=X(J)+159:Y2%=199—(Z(J)+100) 
setzen wir weitere Interpreterroutinen eın. 
Beide BASIC-Zeilen nehmen eine Fließkom- 
mavariable, beispielsweise X(I), addieren (im 
Fließkommaformat) 159, interpretieren das Er- 
gebnis als Ganzzahl und speichern es im Zwei- 
Byte-Format als X1%. Wir ersetzen sie mit 

@FLPINT (CALL Adresse $B1AA): 

FLPINT nimmt den Ganzzahlenwert der in FAC 
gespeicherten Zahl und gibt das Ergebnis 
(falls es zwischen —32767 und 32767 liegt) an 
die Register Y und A im Lo-Hi-Format zurück. 
Beachten Sie, daß im Gegensatz zu den mei- 
sten anderen Interpreterroutinen hier das For- 
mat Lo-Hi eingesetzt ist. 

© SNGFT (CALL Adresse $B3A2): 

SNGFT nimmt eine Ganzzahl im Ein-Byte- 
Format aus dem Y-Register und legt sie im 
Fließkommaformat in FAC ab. 

SNGFT wird in der Subroutine SETUP des 
Assemblerlistings (Zeile 5150) eingesetzt. 
Wenn beispielsweise der Dezimalwert 159 in 
das Indexregister Y gesetzt wird, wandelt ein 
Aufruf von SNGFT diesen Wert um und legt 
das Ergebnis in FAC ab. MOVFM überträgt 
den Inhalt von FAC dann in MEMI. 

Für die Umwandlung des BASIC-Programms 
in Maschinencode müssen wir nun festlegen, 
welche Arrayelemente den rotierenden Umriß 
definieren sollen. Dabei kann die Berechnung 
der Arraypointer recht schwierig werden. Die 
Koordinatenarrays X(I), Y(I) und Z(I) machen 
keine Probleme, da wir in jedem Array nur je- 
weils fünf Bytes auf den Pointer addieren müs- 
sen, um die Adresse des nächsten Elements 
zu erhalten. 

Das zweidimensionale Array E%(LJ) ist je- 
doch völlig anders aufgebaut. Es hat folgendes 
Format: 


E%(0,0)E%(1,0)E%(2,0) . . .EX(NP,O) 

E%(0,1)E%(1,1)E%(2,1)... .EX(NP,1) 

BIB.;:5+ 
Das Array besteht aus Speicherblöcken, die je 
2*(NP-1) lang sind, wobei jeder Block den 
Werten des zweiten definierten Elements ent- 
spricht und jedes Element (des Ganzzahlar- 
rays) genau zwei Bytes lang ist. 

Da wir den BASIC-Code genau in den Ma- 
schinencode übertragen wollen, lauten die 1] 
Schleifen zum Durchsuchen von E%(LJ): 

FOR I=1 TO NP 

FORJ=1T0I 


Nun geht’s rund 


Eine Pointerveränderung, die im Maschinen- 
code dem BASIC-Befehl NEXT I entspricht, 
verkompliziert sich jedoch, wenn es möglich 
sein soll, alle Elemente mit der Definition Null 
zu überspringen. Für die Rotation der Figur 
werden die Elemente von E%(LJ) daher in fol- 
gender Reihenfolge angesprochen: 

E%(1,1) 

E%(1,2)E%(2,2) 

E%(1,3)E%(2,3)E%(3,3) 

E%(1,4))E%(2,4)E%(3,4)E%(4,4) etc. 

Ein schneller Überschlag zeigt, daß 2*(NP+1) 
bei jeder Inkrementierung von I auf den Poin- 
ter addiert werden muß. Im Maschinencode 
des 6502 wird dafür am besten die indirekte 
Adressierung eingesetzt. Hier der Code: 

LDY JINDEX 

LDA (ZPTEMP),Y 
ZPTEMP ist ein Zwei-Byte Pointer auf die Zero 
Page. JINDEX steuert ]. Bei jeder Inkrementie- 
rung von J] muß nun auch ZPTEMP erhöht wer- 
den. Durch die Inkrementierung von ZPTEMP 
und Y erhöht sich das „Netto"-Offset bei jeder 
Inkrementierung von ] um zwei Bytes. ZPTEMP 
wird daher bei jeder Wiederholung der 
I-Schleife um (2*NP+1)-(I—-1) inkrementiert. 
(I-1) muß von der Blocklänge abgezogen wer- 
den, da ZPTEMP bei der (gerade beendeten) 
J-Schleife bereits (I-1l)mal inkrementiert 
wurde. Wenn das Offset über die Formel er- 
rechnet wird, zeigt ZPTEMP nach jeder Erhö- 
hung von I auf das richtige Byte. 

Es wäre praktisch, wenn eine Interpreterrou- 
tine die Variable E%(1,]J) für uns finden könnte. 
Tatsächlich gibt es eine derartige Routine. Sie 
ist Jedoch extrem kompliziert und langsam. 
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Routinen zum Rotieren 


Das folgende Maschinencodeprogr, 
tiert auf dem hochauflösenden.Bi 
im Array E%(1)J) definierte 
haben a ‚eine ‚Maschi { 


e Routine auf. 
ntweder mit der 
Quellencode — II- 
Ladeprogramm 
it dem Ladepro- 
ller j 


und so a rotierende Figur en Das La- erzeugten Code! 
deprogramm enthält gramm arbeiten, 
SIC DATA-Befehlen% 


1888 REM** INSER 
1818 REMxxxxxxxa%« 


1828 DATA72,138,72,152,72,32,191,1# 
1938 DATA173,83,197,172,84,197,32,1& 
1848 DATA187,173,75,197,172,76,197,B 
1858 DATA48,186,162,94,168,197,32,2 
1868 DATA187,173,87,197,172,88,197, 
1878 DATA162,187,173,77,197,172,78, 
1888 DATA32,48,184,169,94,168,197, 
1898 DATA184,162,94,160,197,32,212, 
1188 DATA173,87,197,172,88,197,32, 18 
1118 DATA1897,173,75,197,172,76,197,32 
1128 DATA48,186,162,99,168,197,32,212 

1138 DATA187,173,83,197,172,84,197,32 

1148 DATA162,187,173,77,197,172,78,197 
1158 DATA32,48,196,149,99, 168.197 32 
1168 DATA183,184,182,99,148 
1178 DATA187,169,94 
1188 DATAI74,83,1 


ee XCUDHI 
POKES8582,Y(1)LO 
POKE58583,Y(1)HI 
POKES®584,2(1)LO 
POKES8585,2(1)HI 
POKE58586,NP 
POKES58587,CSLO 
POKES85®8,CSHI 
POKES8589 ,SNLO 
POKES5851®,SNHI 


97, 32, 162,187 


1288 ‘7,172,88,197,32,212 EOKESOS11 ERS 1,190 
1218 197,248,31.169,5,24 E50512,EAC1,12HI 
1228 41,83,197,144,3 


‚5,24,189,87,197 
‚238,88,197,76 
‚8,193, 1a, 


‚1,141,81,19 
‚79,197,133, 


83,197 
er 94 
‚178,177 


FLOATING POINT VAR 
EEEORTING POINT VAR 


DATA32,88,184,3 { NITRRPRETER ARITHMETIC CALLS 
1428 DATA173,9,195,28 B =$BA28 ; FAC=FACHMEM 
1438 DATA1,195,205,3,19 ERBE B =$B858 ; FAC=MEM-FAC 
1448 DATA195,205,5,195,208 =$B867 ; FAC=FAC+MEM 
1450 DATA32,14,195,173,81, =$BBA2 ; FAC=MEM 
1468 DATA197,248,48,169,5, 16088 MOUMF =$BBD4 ; MEM=FAC 
1478 DATA141,85,197,144,3,238 1618 FLPINT =$BiAA ; .Y/.A=INT(CFAC) N.B. HI/LO ORDER 
1488 DATA169,5,24,189,91,197,141,91,197 16208 SNGFT =$B3A2 ; FAC= .Y 
1490 DATA144,3,238,92,197,230,253,208,2 1630 ; 
1588 DATA230,254,238,82,197,76,73,19 1648 ;OTHER MACHINE CODE ROUTINE/VARS 


1510 DATA173,74,197,205,81,197,249, Eu INSUB =$C30E 


1528 DATA169,5,24,109,83,197,141 =$C398 
1538 DATA144.3,238,84,197,169, S =$C381 
1548 DATA89,197,141,89,197,144%8 ( 


1558 DATAI97,169,1,24,189,74, 197, 
1568 DATA237,81,197,24,18 

1578 DATA133,253,16 

1588 DATAI73,68,197 

1598 DATA197,141,86 
1688 DATA91,197,173 
1618 DATAILS9,1,141,8 
1628 DATA73,198,104 
1638 DATA173,68,197\ 
1648 DATAL97,173,69,19 
1658 DATAB6,197,173,70,197, 
1648 DATA173,71,197,141,88, 


JSR SETUP 
+++PERFORM MEMI1=X(I) 


1688 DATAB9,197,141,91,197,173, 
1898 DATA141,90,197,141,92,197, 
1788 DATA32,162,179,162,74,168, 
1718 DATA212,187,160,99,32,162, 
1728 DATA99,160,197,32,212,187, 
1738 DATA79168 :REMXCHECKSUM* 
1748 FORI=58536T051 123 

1758 READX :POKEI ‚X:CC=CC+X 

1788 NEXT 

1778 READX: IFX<>CCTHENPRINT" CHECKSUM 
1788 PRINT"II-ROT.HEX INSTALLED OK" 


=X(I)x*CS 


Yp 


2638 JSR FMULT ; FAC = YCI)x#SN 
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LDA #<MEMI 3248 LDY #>MEMI 

LDY #>MEMI 3258 JSR FADD ; FAC = x(J)+159 
JSR FSUB ; FAC = MEMI-FAC 2 r B i -Y/.A = INTCFAC) 
LDX #<MEMI x2% LO 

LDY #>MEMI 


38 X2% HI 
JSR MOUMF ; MEMI= 
;++++PERFORM MEM2=YCI)%*C{ 


LDA 


LDY FAC =2(1) 
JSR 5 
LDA 3368 LDY 
LDY 3378 JSR 
JSR 3388 JSR 
LDX 3398 STY 
LDY 3418 ;++++tPERFOR 
JSR 3438 LDA 
LDA 3448 LDY 
LDY 3459 JSR 
JSR 3468 LDA 
LDA LDY 


3478 


3498 JSR 


JSR FMULT ; FAC = X(I)«sı E08 
LDA #<MEM2 3508 STY ige 
LDY #>MEM2 3528 ; GET READY 

JSR FADD ; FAC = MEM2+FA 3548 ;TWO BYTE C 

LDX #<MEM2 LDA 

LDY #>MEM2 


JSR MOUMF ; MEM2= FAC 
;t+t++PERFORM XCID=MEMI :YCI)=MEM2 her] 
#<MEMI 3608 ° CMP NHI 
#>MEMI 3618 BNE NOPE 
MOVFM ; FAC = MEMI 3638 ;NOW COMPARE Yi=Y2 
xILO 3658 LDA Yı 
XIHI 3668 cMP Y2 
MOUMF .- 3678 BNE NOPE 
; ALL EQUAL SO AVOID LINESUB 
JMP ONWARD 
OPE 
;PLOT LINE 
Ss 


;FIRST TEST 
iJ=<1 ? 


38208 
3848 
3858 
38648 
3878 
3888 
3898 
3988 XJNOHI 


; INCR! 


YNOHI 


JMP START L 
;++++ CLEAR/INIT SCR REMENT EA POINTER BY 1 
CONTIN INC ZPTEMP 
LDA #881 BNE NOHIBY 
STA $C188 INC ZPTEMP+1 
STA $C181 4878 NOHIBY 
STA $C182 48808 INC JINDEX 
JSR $C18E ; INIT HIRES 4898 JMP NEXTIJ 
st+t++ PLOT LINES FROM EY(I1,J) 4118 ; INCREMENT I POINTERS 
; INITIALISE VARIABLES 
JSR SETUP LDA NP ;FIRST TEST 
LDA #881 I INDEX ;I=<NP ? 
STA IINDEX 
STA JINDEX 
LDA EBASLO 
STA ZPTEMP 
LDA EBASHI 
STA ZPTEMP 


; OFF WE GO - STA 
NEXTIJ 


LDY JINDEX xINOHI 
LDA (ZPTEM H ENT ZILO/ZIHI 
BNE DOIT #$05 


;++++PERFORM X1%=X(1)+159 
; MLO=X1% LO:MHI=X1% HI 


DOIT 
LDA XILO 
LDY XIHI 
JSR MOUFM ; FAC 
LDA #<MEMI 
LDY #>MEMI 
JSR FADD ; FAC 
JSR FLPINT s -Y/. 
STY MLO ; XIZ UL 
STA MHI ; X17 HI 
;++++PERFORM X2%=X(J)+157 
3 NLO=X2% LO:NHI=X2% HI 
LDA XJLO 
LDY XJHI SRADE 
JSR MOUFM ; FAC 4588 sTA ZPTEMP 
LDA #<MEM1 4510 LDA ZPTEMP+1 
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ADC #$88 

STA ZPTEMP+1 
REINITIALISE XJLO/XJHI 

LDA XBASLO 

STA XJLO 

LDA XBASHI 

STA XJHI 
REINITIALISE ZJLO/ZJH 

LDA ZBASLO 

STA ZJLO 

LDA ZBASHI 

STA ZJHI 
REINITIALISE JI 

LDA #$81 
’ STA JINDE 
INCREMENT : 

INC IINDE 

JMP NEXT 
GIANT LOOP ENDS 


++++ PULL REGISTERS ++++ 


EXIT 


;++++ SUBROUTINE 


; 
SETUP 
LDA XBASLO 
STA 
STA 
LDA 
STA 
Ss 


Testprogramm in 


1688 
1818 
1828 
1838 
1948 
1858 
1858 
1878 
1888 
1898 
1188 
1118 
1128 
1138 
1148 
1158 
1168 
1178 
1188 


REM%**PLOT ROTATING CUBES*#* 
IFA=BTHENA=1 : LOAD" PLOTSUB.HEX" „8,1 
IFA=1 THENA=2:LOAD"LINESUB.HEX" ‚8,1 
IFA=2THENA=3: LOAD" TI-ROT.HEX" ‚8,1 
PRINTCHR$(147) "WAIT 17 SECS" 
REM%**DIMENSION ARRAYS** 

NP=24:REM NUMBER OF POINTS 

DIM X(NP) ,Y{NP) „Z{NP) 

DIM EX(NP,NP) :REM EDG 
REM%**INITIALISE ARRQ 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA : 

DATA -58 ,-58 ,-58:REM POIN 
DATA 58,-58,-5@:REM 


1288 RESTORE 
1298 FORI=17T024:REM LEFT SMALL CUBE 


REM**ROTATE 

FORI=1TONP 
YCID=YC1)x*COß<(T/4)-2C1) 
ZCII=2ZCI)#CO8CH/4)+YCI) 
NEXT 

REM**ROTATE 

FORI=1TONP 
xXCI)=XCI)*CO 


NEXT 


Der folgende Prog 


EA(1,2)=1:REM 1 CONNECTED TO 2 
E4(2,3)=1:E4X(3,4)=1:E%(4,1)=1 
E4(5,6)=1:REM BOT SQUARE 
EA(6,7)=1:EX(7,8)=1:EX(8,5)=1 
EA(5,1)=1:REM TOP TO BOT EDGES 
EA(6,2)=1:EX(7,3=1:E%X(8,4)=1 


t und neue Figuren 
jütine wird im Inneren 


OT ROTATING CUBER# 
45:C0S=C0S( SA) :SN=SIN(SA) 
B1798:REM INITIALISE 
FOR A=8 TO 2*1 STEP SA 
SYSS58536:REM ROTATE 
NEXTA:REM NEXT ANGLE 
GETA$ : IFA$=" "THEN1718 
REMERHHHRHHHHHHHHHHH HH HH 
GOSUB1759:REM RESET SCREEN 
END 
STH SCREEN** 


PX) :REM XC1) CURREN 
50508 ,PEEK(7I):REM XC 


Der folgende Programmteil liest die 
nierten Daten in die Arrays X(), Y() üne 
achten Sie, daß die Anfangswerte def k 
Würfel um ein Drittel verringert wurde 


REM**READ IN DATA FOR 3-CUBES* 
FORI=1TO8:REM CENTRE BIG CUBE 
READXCI) ,YCI),ZCI) 

NEXT 

RESTORE 

FORI=PTO14:REM RIGHT SMALL CUBE 
READX,Y,Z 
X(1)=.3%%X+120:YC1)=.3#Y:Z2(1)=.3%2 POKESeS12. |PEEK«72) 
NEXT RETURN 


58587 ,PEEK(?1) 
#50588,PEEK(7?2 
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Fachwörter von A bis Z 


Name = Name 

Namen dienen im Computerbereich 
zum Identifizieren unterschiedlicher 
Daten. Namen können in Program- 
mier- und Systemsprachen für Da- 
teien, Prozeduren, Variable, Tabel- 
lenfelder und vieles mehr verwendet 
werden, und zwar nicht nur als Ge- 
dächtnishilfe: Der Programmierer 
braucht sich keine weiteren Gedan- 
ken um den Speicherort einer Varia- 
blen oder Datei zu machen. Das Sy- 
stem legt automatisch Listen mit der 
Zuordnung von Namen und Adres- 
sen an. Wenn der Rechner aus Platz- 
gründen Dateien im RAM oder auf 
Diskette hin- und herschiebt, ist der 
Zugriff über die Dateinamen trotz- 
dem stets gesichert, ohne daß dem 
Programmierer die Verlagerung 
überhaupt bewußt wird. 


NAND = NAND 

NAND ist die Abkürzung von NOT 
AND und bewirkt als Boolesche Ver- 
knüpfung eine UNDung mit Nega- 
tion des Ergebnisses. Die NAND- 
Funktion liefert daher umgekehrt 
wie das AND das Resultat FALSE, 
wenn alle Eingangsgrößen gleich- 
zeitig den Wert TRUE haben. Elek- 
tronisch wird die Verknüpfung durch 
ein NAND-Gatter realisiert, dessen 
Ausgang genau dann auf 1 liegt, 
wenn alle Eingänge den Wert 0 füh- 
ren (in positiver Logik). 


NAND-Gatter 


Das Schaltzeichen für den NAND-Gatter 
entsteht aus dem AND-Symbol, indem 
ausgangsseitig zur Kennzeichnung der 
Negation ein kleiner Kreis angefügt 
wird. 


Negative Logic = Negative Logik 
Wie zu erwarten, stehen bei negati- 
ver Logik alle Konventionen auf dem 
Kopf: Die binäre 1 bedeutet FALSE 
und die 0 bedeutet TRUE. Die Ein- 
führung hat rein technische Gründe 
— viele Schaltungen lassen sich da- 
durch einfacher gestalten. Negative 
Logik ist z. B. bei Microprozessoren 
für das Schreib/Lese-Signal verbrei- 
tet, bei dem die 0 Freigabe und die 


Hier werden einzelne Fach- 
ausdrücke eingehend behandelt. 
Da bei der Kommunikation mit 
dem Computer meist die 
englische Sprache verwendet 
wird, werden hier zunächst die 
englischen Begriffe genannt, 
dann die deutsche Übersetzung. 
In den Gesamtindex werden 
sowohl deutsche als auch 
englische Stichwörter aufge- 
nommen, damit Sie es leichter 
haben, das von Ihnen 
Gesuchte zu finden. 


l Sperren bewirkt. Der Begriff wird 
auch verwendet, wenn bei Boole- 
schen Operationen durch Komple- 
mentbildung die ursprüngliche 
Funktion ins genaue Gegenteil ver- 
kehrt wird. 


Nesting = Verschachtelung 
Die Verschachtelung ist ein wichti- 
ges Prinzip bei der Programmierung 
von Mehrfach-Schleifen. In BASIC 
muß jede innere FOR-Schleife voll- 
ständig in der äußeren Schleife ein- 
gebettet sein. Eine Verletzung dieser 
Grundregel löst bestenfalls eine 
Fehlermeldung aus, meist aber einen 
Programmabsturz. Wenn der Rech- 
ner auf das Schlüsselwort FOR trifft, 
schiebt er die zugehörige Adresse 
auf den Stack. Stößt er dann auf die 
folgende NEXT-Anweisung, holt er 
sich die FOR-Adresse wieder und 
verzweigt zum Schleifenanfang. 
Wenn Schleifen nicht korrekt ge- 
schachtelt sind, lädt der Computer 
die falsche Rücksprungadresse vom 
Stack und setzt die Programmbear- 
beitung an einer falschen Stelle fort. 

Die Schachtelung wird vor allem 
akut, wenn wiederholt gleichartige 
Operationen auszuführen sind, wie 
etwa in dem folgenden Programm: 

10 FOR A=1 TO 12 

20 FOR B=1 TO 12 

30 PRINT A;”x”;B;"="; A*B 

40 NEXT B 

50 NEXT A 


Die Ausführung beginnt mit der 
A-Schleife, indem die Adresse der 
ersten FOR-Anweisung auf den Stack 
gelegt und irgendwo im Speicher die 
Variable A auf 1 gesetzt wird. Das 
gleiche Arbeitsprinzip gilt für die 


B-Schleife. Da der Stack nach dem 
FIFO-Prinzip organisiert ist, lädt der 
Rechner dann in Zeile 40 gemäß der 
NEXT-Anweisung als oberste Stack- 
Adresse wieder die des FOR von 
Zeile 20 und setzt das Programm dort 
mit der Erhöhung der Variablen B fort. 
Nach zwölfmaligem Durchlaufen der 
B-Schleife und anschließendem 
Rücksprung auf Zeile 20 erreicht B 
den Wert 13, das heißt, der Schleifen- 
endwert ist überschritten. Daraufhin 
geht der Rechner auf Zeile 50 über, 
wo er wieder ein NEXT findet, sich 
daraufhin vom Stack die Einsprungs- 
adresse der A-Schleife greift usw. 


Verschachtelte Schleifen 


5 REM Korrekte Schachtelung 
10 FOR X=0 TO 6 

20 FOR Y=0 TO X 

so PRINT AGENT TE; 

40 NEXT Y 

50 PRINT 

60 NEXT X 


5 REM Fehlerhafte Schachtelung 
10 FOR X=0 TO 6 

20 FOR Y=0 TO X 

3 PRINI ray. 

40 NEXT X 

50 PRINT 

60 NEXT Y 


Bei korrekter Schachtelung muß die in- 
nere Schleife ganz in die äußere einge- 
bettet sein. Beim oberen Programm liegt 
die Y-Schleife vollständig innerhalb der 
X-Schleife, und es gibt keine Probleme. 
Im unteren Programm ragt dagegen die 
eine Schleife einseitig über die andere 
hinaus, und daher sind bei der Ausfüh- 
rung Fehler zu erwarten. 


Viele BASIC-Interpreter verlangen 
den Namen der Laufvariablen in der 
NEXT-Anweisung nicht. Sie springen 
ohne Überprüfung auf die FOR-An- 
weisung zurück, die gerade im Stack 
ansteht. Eine Fehlschachtelung wäre 
geradezu fatal. 
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Wer selbst Programme schreibt und sie auch mal anderen zugäng- 
lich macht, möchte sein geistiges Eigentum sichern — mit einem 
Kopierschutz. In unserem nächsten PROGRAMMIER-SERVICE 
zeigen wir, wie man seine Software sichern kann. 


a / 


) Stein auf Stein 
Es geht weiter mit dem Go-Spiel. Beschrieben wird 
das Modul, das zum Setzen der Steine notwendig ist. 
Außerdem geht es um die Aktualisierung der Spiel- 
brett-Darstellung. 


Starkes Echo 

Für den Commodore 64 und den Acorn B gibt es 
das Musikpaket „Echo“, das den Soundchip im 
Rechner über eine Klaviertastatur anspricht. 

Das System ist leicht einzusetzen. 


